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A SYSTEM FOR COLLECTION, PREPARATION, TRANSLATION, 
AND COMPUTER REDUCTION OF DIGITAL HYDROLOGIC DATA 


by Jan C. Carr 1 


INTRODUCTION 


A system for collection, preparation, translation, 
and computer reduction of digital hydrologic data has 
been developed at the Northeast Watershed Research 
Center, University Park, Pa, This system represents a 
significant improvement over tire tedious handwork of 
visually recording data from a pen trace chart. 

The use of digital-recording hydrologic gages pre- 
sents several problems in the development of a data- 
processing system. (1) Visual inspection of recorded 
data to detect instrument abnormalities and correction 
or identification of such malfunction errors is practi- 
cally impossible. Thus, operators rely on the computer 
for detection of these errors more so than on analog 
chart data. (2) Hie amount of recorded data produced 
is large, because the readout device operates continu- 
ously; however, this volume of records is easily handled 
by high-speed computers. (3) One advantage of this 
recorder is minimum human-contributed errors. This is 
due to not having to transfer and correct data from 
charts to computer input form manually. 

Corrections may be made upon digital data records 
manually, but these are normally restricted to areas 
that tapes may have torn or that may have been 
disfigured by the recorder. In tills case, the proper gage 
reading must still be recognizable. (4) The ability of 
this recorder to run continuously and unattended for 
long periods of time is a great advantage, because fewer 
site visits are necessary, and less time is needed to 
identify, process, and store the records. 


1 Hydrologic technician, Northeast Watershed Research 
Center, Northeastern Region, Agricultural Research Service, 
U.S. Department of Agriculture, University Park, Pa. 


The following sections describe this data-collecting 
and processing system for digital hydrologic data. Field 
data collected from the Mahantango Research Water- 
shed located near Klingeistown, Pa,, was used to 
illustrate the operation of the system. A flow diagram 
of the system is shown in figure 1 , 



Figure 1,-A flow diagram of the digital hydrologic data- 
handling system. 
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DIGITAL-RECORDING GAGES 


The type of digital recorders used on the Mahan- 
tango Watershed network are the Fischer and Porter 
precipitation gage (fig. 2), water level gage (fig. 3), and 
tide gage (fig. 4).' 2 

The precipitation gage mechanically converts the 
depth of accumulated precipitation onto a binary- 
coded, punched paper tape at selected time intervals. 
This gage has a standard 8-inch orifice, collector 
capacity of 20.0 inches, and recording accuracy to the 
nearest 0.1 inch. A rain trace sensor is incorporated 
within the gage collector to provide a more accurate 
record of the beginning and ending of precipitation 
events. This sensor operates normally during summer 
months. Timing for the collection of precipitation is 
done by a 5-minute, solid-state electronic timer driven 
by a d.c. power supply. The 5- minute-interval punch- 
out provides 105,000 readings per gage during a 1-year 
period. Of these readings, approximately 500 will 
suffice to describe precipitation events that occurred 
during the year. 

The water level gage incorporates a float, counter- 
balance pulley mechanism to transfer streamflow 
depths onto punched paper tape. Tills gage operates on 





Figure 2 -A digital-recording precipitation gage. 
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Fischer and Porter Company. Precipitation gage-recorder, 
Instr. Bui, 35-1558-1, punchcd-tnpe level recorder, Instr, Bui. 
^-1541-4, Rev. 3. tide gage, Instr. Bui. 35-1550, Rev. I. 1970, 


Figure 3, -A digital-recording water level gage (streamflow). 




Figure 4. -A digital-recording tide gage (ground water levels), 
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a 5-minute-interval punchout s the precipitation gage. 
Approximately 10,000 of tnc 105,000 readings are 
needed to depict the fluctuations of stream depths 
during the year. 

The tide gage for recording ground water well levels 
differs from the water level gage, The gage uses a 
counterbalance spring in place of a conn terwei girt to 
facilitate measuring water levels in a well pipe, where 
sufficient room is not available for a counterweight. 
Both the tide gage and the water level gage record 


continuous water levels to the nearest 0.01 foot up to 
50.00 and 99.99 feet, respectively. The tide gage 
operates on a 30-minutc -time -interval punchout, with 
each of the 17,520 readings per year used to describe 
continuous well levels during the year. 

Each gage’s punchout mechanism may be operated 
manually by means of a switch. This manual operation 
provides a test on punchout alignment and gage time 
versus clock time synchronization. 


DIGITAL PUNCH PAPER TAPE 


The punch paper tapes shown (fig. 5) have a width 
of 2 1/8 inches, and a length that varies with available 
time scales. One day’s record with a 5-minute time 
scale requires 28 5/8 inches of tape length, while a 
30-minute time scale requires 4 7/8 inches. 

The paper tape is divided along its length into 
crosswise lines which represent the clock time at which 
punchout occurs (see fig. 5). A 5-minute tape is 
identified at 10-minute-increments in the center of the 
tape. Hour lines are marked by heavier lines and are 
identified in the military time scale. Each day on the 
tape is consecutively stamped with red numerals. These 
provide a count of the total tape days elapsed from 
beginning to end of a record period. 





Figure 5, -Digital punch paper tape usage. 


The tape is divided into 16 channels, two wide black 
lines, an area along the tape center that contains the 
time interval markings, and large sprocket drive holes 
that arc used by the recorder to feed paper tape. The 
16 channels are subdivided into four groups of four 
channels each. In the individual groups, channels are 
binary coded “1-24-8.” 

Any number can be represented by the appropriate 
selection of these codes. Those codes not selected are 
zero. For example, using the tape for precipitation (fig. 
5A), a summation of the farthest right-hand group of 
punched holes establishes the ten tils digit. The next 
group, moving from right to left, gives the units digit, 
and the third group provides the tens digit, Since the 
recording accuracy of this gage is to the nearest tenth 
of an inch, and since capacity is 20 inches, these three 
groups provide a three-digit precipitation readout, 
leaving the hundreds digit, or the fourth and final 
group, unused. Normally, during the summer months 
when the rain-trace sensor is operative, a trace of rain is 
noted by a trace punchout in the binary 8 channel of 
the fourth group. 

The punched paper tape (fig, 5B) used in stream- 
flow recording is identical to the tape in figure 5A, 
except that the four groups provide a different 
numerical representation, The first group represents 
the hundredths digit; the second group, the tenths 
digit; the third group, the units digit; and the fourth 
group, the tens digit of a four-digit number. The 
ground water level punch paper tape (fig. 5C) differs 
from the streamflow tape (fig. 5B) only in its time 
scale. The two wide black lines shown on each tape are 
channels for the placement of translator alignment 
holes, winch are automatically punched in the tape 
during each 5- or 30-minute -punchout to provide 
proper tape alignment during the paper-tape-to- 
magnetic-tape translation. 
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GAGE LOCATION IDENTIFICATION 


A one-half-square-mile grid system was developed 
for the Mahantango Watershed to identify each gage by 
a numerical location code (fig. 6). The north to south 
grid lines represent parallel longitude, while the east to 
west lines represent parallel latitude. Grid squares were 
lettered alphabetically A through U from north to 
south, and numbered 1 to 65 from east to west, 
respectively. Further subdivision of individual grids can 
be provided to give more accurate gage locations. 

A prefix was used in conjunction witii the gage 
location to indicate the type of instrument as follows. 
R - An individual rain gage location. 

M - Meteorological sites (rain gage, evaporation, 
wind, humidity, and temperature station). 

G - Open-channel stream-gaging station. 

W - Weir-control stream-gaging station. 

A - Aquifer (ground water well station). 

Example: RG32 is a rain gage recorder station. R 
designates rain gage, and G32 is the grid square 
location code of the gage on Line G and Column 32, 


A watershed identification number, developed by 
the Agricultural Research Service, was used to desig- 
nate the State and watershed location within the State. 
The State location number assigned to the Mahantango 
Watershed, Pa., is 16. Each of the six subwatersheds 
within Mahantango Watershed were numbered 0.01 
through 0.06, and the watershed identification num- 
bers, referred to as IWID, are as follows: 


Sub watershed 

Stream Gage 

IWID 

Mahantango Creek 

GR04 

16.01 

Deep Creek 

W016 

16.02 

Little Mahantango Creek 

GK27 

16.03 

Pine Creek 

GM27 

16.04 

Run Stella Run 

WJ30 

16.05 

Three-Square Mile 

WE38 

16.06 


The combination of watershed identification and gage 
location numbers provides sufficient numerical repre- 
sentations of a particular gage within a certain water- 
shed. 



Figure 6. -The gage location grid system. 
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PAPER TAPE DATA COLLECTION 


The maximum paper tape collection period varies, 
depending upon the punchout timing cycle. Experience 
with the Maliantango network has indicated that a 
monthly collection period is most efficient when those 
gages are operated on a 5-minute time cycle, and 
twice a year for those gages on 30-minute cycles. The 
punched records are stored by the gage on a takeup 
Spool, with the beginning of the collection period 
located on the inside of the rolled tape. 

A 10- to 12-inch length of unpunchcd tape precedes 
the punched record. The unpunchcd area is used to 
record notes such as gage number, beginning date, 
time, and punched value. Prior to the start of record- 
ing, a series of six or more manually initiated punch- 
outs are placed in the tape in the area beyond the 
notes. These punchouls supply the feed alignment 
holes required during the translation procedure. A red 
felt-tip marker line is drawn across the beginning 
punchout of the collection period. This line separates 
the first gage punchout time interval from the preced- 
ing manual punchouts and provides a visual notation of 
tile actual beginning of record. 

The current paper tape record begins with the time 
that the previous tape ended, resulting in duplicate 
punchouts between each collection period. The pur- 
pose for following this procedure is to establisli a 
standard method for removal and installation of the 
paper tape records. The computer reduction step is 


designed to take into account that duplicate punchout 
times exist between each tape record. 

Two exceptions to this standard method may occur. 
A complete loss of data, due to gage failure, would 
require the following tape to begin with the present 
watch time, and a special notation of the data loss 
would be made (see Loss Data Cards, “Computer Input 
Section”). A time loss or gain, either of which can 
occur with the digital gage, will also require a special 
notation. In this case, the beginning punchout of the 
following paper tape will not be identical with the 
ending punchout of the previous tape, but the new 
record would begin with the same watch time as the 
ending watch time of the preceding period. The special 
notation in the form of a numerical error code, 
described under the “Paper Tape Data Preparation” 
Section, would be noted on the tape record which had 
the punchout time loss or gain. 

With the established method of tape removal and 
installation, the manual punching mechanism is used to 
synchronize each paper tape collection period to 
standard watch time. A minimum of 6 inches of 
unpunchcd tape must follow each collection period. 
This length is needed during the translation procedure. 
A field check list (table 1) is kept of the paper tape 
records for each gage. The field notes supply a 
complete gage history. 
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TABLE 1. -A field check list depicting information from a precipitation gage recorder 


FIELD CHECK LIST FOR F&P RECORDERS 

NEWRC-1 


INSTRUMENT NO: M U „„ , ^ 

TIBER BO , //-£?- 2 WATERSHED: tgflMlSSSiigSl (MS 

LOCATION NO: M-f37 LOCATION: ^XjOiiUX 


DATE TO BE SERVICED 

1 1 ~ ' 1 

- : -— U 


DATE ACTUALLY SERVICED 


0 j./o-7fL t 

L 



SYNCHRONIZATION 






WfFJKTSWt^ 









Tape Day No. 

TAPE SUPPLY 


wenrujm 

_i 

t ii 

II 1 

\ 

1 1 


Supply Tape Replaced 
Tape No. 

Days Remaining on Tape 
Record Removed 

Notation on Tape 

INSTRUMENT READING 





— 7Zo+ 











«TH 


1 






|| | 

p— J 

J 

. 



7 77 



— 


jC7 ! 

9.7 




Punchout in Line 
Punchout Clean 
Sensitivity Checked 
Range Adjusted 

Zero Adjusted 

Collector Emptied 
r'n 1 ^ hrfttinn Made 

yes ~1 

yes 




— Yes — 1 

— Wl 




yes 

veJ 




mnrrrpsa 






w.'wajctAmrA un/ai 





wrBJBFm 

L£fiUiEE£9B 




wnarjynM 

rrouyjm 





VjdJ. JIU I ULIU LI L taut 

BATTERY SUPPLY ! 


i 

-J 



Battery Replaced 1 

Voltage Across Battery 
Voltage Across Motor 
ma Drain of Timer 
ma Drain at Punchout 

OPERATION 

Evap. Suppression Oil 
naaVi«of Fluid Added 


63-/4-71 , _| 




7.9- \ . i 





7. 7 i 




: 



/VS* 

/3S i 





■ 

1 

1 








jgBEggj 


— 



JJnuilUU L r JLUJLU rrvi 

Contacts Cleaned 

In Collector 

r>3-08 

C&-/0-7X. 




A) 0 

A 10 

i 



Mechanical Malfunction 

CF ATONAL OPERATION 

/JO 

NO j 







Trace (In or Out) 

Trace Battery Voltage 
Funnel (In or Out) 

Anf* ^ f vnpyfl Tllft f flllsd 


mmnmommmmm 




'EEhShESSS 



*ifT~ 





5 no ~ 



RARE SERVICED BY 

KR 

r ft. ft ! 

U 

. 


(D(2D ( Make Additlona:L Comments on Back) 
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PAPER TAPE DATA PREPARATION 


A hand-operated roller is used to rewind the paper 
tape record to place the beginning of the record period 
on the outside of the roll. The hollow core of the 
rewound tape must be at least three-fourths of an inch 
in diameter to meet the requirements of the translator 
supply spool. During the rewinding of the tape, a visual 


scan is made for detectable errors. A four-digit, 
error-coding system was developed for use in identify- 
ing any gage malfunctions, such as time loss or gain. 
Each paper tape record is coded by one of these error 
codes (App. 1). The rerolled paper tape records are 
labeled (fig, 7) as to State watershed number (fVVID), 



Figure 7. -A paper tape record identification label. 
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gage location number, trace operation, punchout time 
interval, beginning and ending date, time, punched 
value, and error code. 


The information from the tape identification labels 
is transferred to a “paper tape identification form” 
(table 2). Each horizontal line represents a record 


TABLE 2. -Paper tape identification form ( precipitation > stream flow, and ground water) 
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period (paper tape). Cards keypunched from the form 
serve as program controls during the computer reduc- 
tion of the paper tape record. The form heading 
contains space for the State, the State watershed 
location number (IWiD), watershed name, and year of 
data collection. Each record is identified as follows: 


Card Columns 

Identification 

1-4 

The paper tape error code. 

5-16 

The gage location number. 

17-18 

The punchout time interval. 

19 

The type of data. 

20 

The trace indicator code. 

21-32 

Beginning time-month, day, year, 
hour, and minutes, respectively. 

33-36 

The first punched-data value. 

37-48 

Ending time-month, day, year, hour, 
and minute, respectively. 

49-52 

The last punched-data value. 

53 

Translation error codes. 

54-56 

Computer control codes. 

57-62 

Mean sea level (ground water record- 
ings only), 


In addition to the above information, optional daily 
snowfall records are kept of days with precipitation 
other than rainfall. This record is used to identify days 
of solid precipitation on the computer output data. 
The information is recorded upon a snow dale record 
form (table 3). This form contains the date and type of 


precipitation where the key at the bottom of the form 
explains the proper coding used under the “Type of 
Precipitation” column. 

After the completion of rewinding, scanning, and 
identifying the paper tape records and the recording of 
appropriate information onto forms, the tapes are 
transported and stored in a 101/2-by-7 l/2-by-2-i»ch 
flat polyethylene freezer box. Each box can hold 
1 -year’s record from 5-minute-interval gages. 

TA BL t\ 3. — Si \o\ v date fo tvi table 


Month Day Year Type Notes 


i 

2 

3 

4 

5 

6 

7 

8 


0 

1 

2 

ft 

7 

0 

N 


Example; Rain ami Snow 1/28/70 

0 

2 

0 

1 

7 

0 

S 


Snow 2/1/70 

0 

3 

1 

5 

7 

0 

M 


Mixed Precipitation 3/15/70 
















































Type Key: S ~ Snow 
L = Sleet 

M " Mixed Precipitation (Rain, Snow, Sleet) 
N - Rain arul Snow 
H * Mail 


PAPER-TAPE-TO-MAGNETIC-TAPE TRANSLATION 


Digital paper tape records in the original form 
cannot be used as direct input to digital computers 
without special interface equipment. Therefore, the 
paper tape data must be converted to a suitable media 
(usually cards or magnetic tape). This Center employs 
the paper-tape -to-magne tic-tape converting method. 

The Digi-Data Model 1730 translator (fig. 8) uses 
sensing pins to read punched paper tape. 3 The informa- 
tion from the binary punched holes is converted to an 
equivalent four-digit number and electronically records 
this reading on a seven-channel, 556 BPI, IBM-compat- 
ible magnetic tape. Each four-digit number represents a 
5- or 30-minute-intervaI gage reading, depending on the 


3 Digi-Data Corporation. Operation manual model 1730 
converter (translator). 1970, 


data being translated. The paper tape readings are 
converted to magnetic tape at a rate of 18 paper tape 
time intervals per second. The records are automati- 
cally blocked every 1,020 digits. An intcrrecord gap of 
three-fourths of an inch is written between each block. 
This blocking, combined with the interrecord gap, 
meets the requirements of most computer magnetic- 
tape reading devices, 

The model 1730 contains a feature for entering 
fixed data settings of either 11 or four digits. Eleven 
windows are available to enable dialing a digit into each 
window. The individual digits can range from 0 to 9. 
Two controls, numbers 1 1 and 4, provide for writing 
an 1 1- or four-digit number on the magnetic tape. 

The 11 -digit control is available to enter the label 
information from the paper tapes being translated. This 
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.ape spoils 



I 


Figure 8.-A paper-tape-to-magnetic-tapc translator, 


method of entering the label information onto the 
magnetic tape is slow and provides opportunity for 
human error. Thus, the 11-digit control is not used 
with this translation procedure, since the label informa- 
tion will be fed into the computer through cards 
keypunched from the "Paper Tape Identification 
Form” (table 2). 

The four-digit control has a twofold purpose. It is 
used to enter data from the paper tape record when 
misaligned punched readings cause the translator to 
stop. The value of the punched reading missed may be 
entered directly on the magnetic tape in the last four 
windows of the 1 1 windows. Since each paper tape 
record represents a different collection period and 
possibly a new error code, every paper tape record is 
translated as a separate record. To enable the computer 
to differentiate between paper tapes, a numerical code 
of 9999 is written on the magnetic tape through the 
use of the number 4 digit control. The “four 9’s” code 
signals the end of a paper tape record and is applied 
after each paper tape’s translation. 

The original design of the model 1730 translator 
was such that zero gage readings, nonpunched values, 
could not be read. This feature allowed the translator 
to stop translation of a paper tape when the 6-inch 
blank span at the end of the paper tape was en- 
countered. The ability to translate zero readings is 

pessary when precipitation data are being converted. 


The construction of the precipitation gage is such 
that after a collection of 15.0 to 19.9 inches of 
precipitation, the collector part must be emptied and 
the following recording period begun with zero gage 
readings. These zero readings will be present on the 
paper tape until the first precipitation event. To 
provide for precipitation data translation, the model 
1730 was modified by installation of a “zero suppres- 
sion” toggle switch. This switch resides in one of two 
positions, normal or nonnormai. The normal position 
does not allow the translator to read zero values, thus 
stopping translation on encounter with unpunched 
tape, and the nonnormal position allows translation of 
zero gage values. 

The procedure for paper-tape-to-magnctic-tape 
translation can vary with the model 1730, but with 
ease of operation and speed as a criteria, the following 
step-by-step procedure is recommended: 

1. Load the magnetic tape on a supply spool that 
is located on top of the translator and hand 
threaded through the proper path to a takeup 
spool. A tape-loading diagram is supplied by the 
manufacturer. The tape spools handle varied 
sizes of computer magnetic tape up to 10 1/2- 
inch reels, 

2. Set Recorder Mode Switch to the record posi- 
tion and turn power on. The function of the 
Recorder Mode Switch is to specify one of the 
following three options: record, rewind , and 
fast forward wind . 

3. Press the Record Length Counter (RLC) con- 
trol. This control energizes the magnetic tape 
blocking counter. Every 1,020 digits are 
blocked, plus an interrecord gap on the mag- 
netic tape, by the automatic blocking feature, 

4. Press Begin of Magnetic Tape (BOT) control, 
The magnetic tape advances until a photocell 
sensing light encounters an aluminum foil re- 
flective mark attached to the tape some 10 feet 
into the supply spool, The mark provides an 
exact starting point for recording, which en- 
ables a computer-tape-read device to index at 
the proper beginning of the magnetic tape data. 

5. Set Zero Suppression Switch to the normal 
position if reading nonzero paper tape data. Set 
to the nonnormal position to read data with 
beginning zero values, 

6. Load first paper tape record onto the trans- 
lator-read head. The beginning of record on the 
paper tape, as identified by the red marker line, 
is aligned so as to be the first punched value 
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read and converted. Proper indexing of this line 
assures the appropriate beginning clock and 
paper tape time synchronization. 

7. Press Start Control Button. The paper-tape- 
to-magnetic-tape conversion continues until the 
end of the paper tape is encountered, The 
position of the Zero Suppression Switch is 
important during the translation. If the switch 
position was nonnormal at the start of trans- 
lation, it must be placed at the normal position 
as soon as the first nonzero punched values 
appear in the paper tape. If the translation 
stops because of misaligned paper tape punches, 
the value of the reading prior to the stop point 
is dialed into the last (most right hand) four 
fixed-data windows, and the number 4 control 
is pressed. This reading is converted to the 
magnetic tape. Repress the Start Control 
Translation will continue until the blank span 


at end of paper tape automatically stops trans- 
lator. 

8. Remove the paper tape from the translator-read 
head. Dial 9999 code into the last four fixed- 
data windows and press 4 control. This code is 
applied after the translation of each paper tape. 
A paper tape requires from 4 to 6 minutes for 
loading, translation, and removal. 

9. Place two end-of-file marks, by means of an 
EOF Control, when the last paper tape record 
for the run has been translated, and the four 9’s 
code has been applied. The end-of-file marks 
are recognized by the computer as the end of 
ail data on the magnetic tape. The feature is 
used only as an end of all data. 

10. Place the Record Mode Switch in the Rewind 
position after completion of the translation. 
The magnetic tape rewinds onto the supply 
spool and is removed, identified, and stored 
prior to computer reduction. 


TRANSLATION PROCEDURE ERRORS 


The translation procedure can provide some oppor- 
tunities for human error. A translator operator may 
mistakenly write on the magnetic tape an incorrect 
control code at the end of a paper tape. The operator, 
realizing that the error may have occurred, can take 
appropriate steps to have the computer correct the 
error by use of the proper numerical code from table 4. 

TABLE 4. -Translator operator errors 
(Coded in Column 53, Paper Tape Identification Form) 


Code 

0 or Blank 

1 

2 

3 

4 


Type of Translator Operator Error 

No errors during paper tape translation. 

The four 9’s, or EOF end-of-paper-tape control, 
left off magnetic tape after the paper tape 
translation. 

Two end-of-paper-tape controls of four 9’s or 
EOFs were mistakenly written on magnetic tape, 
A value other than the four 9’s or EOF control 
was written on magnetic tape. 

T1 ic “Zero Suppression*’ switch left in the non- 
normal position. Paper tape continued to run, 
extra zeros on magnetic tape. The four 9’s or 
EOF control was placed at end of the zeros. 

The same problem as Code 4, except failed to 
write the four 9’s control on magnetic tape at 
end of zeros. 


The desired code is entered in column 53 of the 
Paper Tape Identification Form (table 2), opposite the 
paper tape on which the error occurred. Any code 
from table 4, other than zero or blank, tells tire 
computer to use a supplied ending date and time to 
determine the end of a paper tape. If the instrument 
error code (App. 1) for the paper tape is 1,000, with 
good data tape with no apparent errors, the supplied 
ending date and time for the tape would be the same as 
the ending date and time shown on the tape label. 

When the instrument error code specifies a time gain 
or loss, a manually calculated ending date and time for 
the paper tape must be determined. This calculation is 
performed as follows; (a) Count the number of punch- 
out intervals for the paper tape period, which will give 
the number of 5- or 30-minute intervals for the tape 
period, (b) Divide the count into days, hours, and 
minutes, and add to the paper tape’s beginning 
punchout date and time, which establishes the actual 
tape punchout ending date and time, (c) Keypunch this 
time on a data card. The description of this extra card 
(Translator Error Card) is given in the next section, 
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COMPUTER INPUT DATA 


The computer input consists of both keypunch 
cards and the translator-produced magnetic tape. The 
cards are standard 80-column punchcards. The input 
card variables^ proper coding of these variables, and the 
type of format are described under each card layout. 
The following format code is adhered to: 


I ~ Integer number, right justified in card field. 

F ~ Real number, contains a decimal point loca- 
tion. Decimal point not punched on the card. 
A ~ Alphanumeric, number or letter, left justified 
in the card field. 

X = Blank card field, not used. 


CARD LAYOUTS 


Header Card 

(One Card -Required) 


Variable NHEAD NSC 

Format Code II 13 

Card 

Columns 1 2-4 


Variable Description 

NHEAD The number of “page heading cards” to 
be read and written as headings on each 
computer output page. A maximum of 
three u page heading cards” may be read 
and written. This code is zero if no page 
headings arc to be written on the 
printer. 

NSC The number of “snow date cards” to be 

read into storage. A zero coding indi- 
cates no “snow date cards” to be read. 
A maximum of 999 cards may be read. 
(See snow date card layout below). 


Page Heading Cards 

(A maximum of three cards, the number of cards 
must equal to NHEAD on the “Header Card”). (If 
NHEAD equals zero, this card layout is not 
needed). 


Variable 

HCARD(x) 1 

Format Code 54 A 1 

Card 

Columns 

1-54 

‘The "x" 

notates an integer from 1 through 3. 

Variable 

Description 

HCARD 

Output Identification (See example be- 
low). Example: “Basic Precipitation 


Data (Break Point)” for HCARD (1). 
“NEWRC, University Park, Pa.”, for 
HCARD (2). 


for HCARD (3). 

Note: The State, watershed, and gage 
names are automatically written follow- 
ing the page headings. These variables 
receive values from the following con- 
trol and label card layouts. 
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Snow Date Card 

(Optional cards, use by precipitation data only, one 
card for each day of precipitation other than snow). 

Note: If NSC on header card is zero, this card layout is 
not needed. 


Variable 

NSDTE(x.l) 2 

NSDTE(x,2) 2 

NSDTE(x,3) 2 

STYPE(x) 2 

Format Code 

12 

12 

12 

A1 

Card 

Columns 

1-2 

3-4 

5-6 

7 


2 Numbers in parentheses represents indexes of computer storage tables, The “x” denotes a 
number beginning with 1 and ascending to 999, This provides storage for a possible 999 days of 
snowfall or similar precipitation, 


Variable 

NSDTE (x, 1 ) 
NSDTE (x,2) 
NSDTE (x,3) 
STYPE (x) 


Description 


The month. 

The day, 

The last two digits of the year. 

The type of precipitation, see “snow 
date 11 form (table 1) for proper 
coding. 


The snow date cards arc punched directly from the 
“snow date record form” on table 3. 

The following card layouts serve as program control 
and paper tape records information. The main portion 
of the card variables described obtain values from the 
“paper tape identification form” (table 2). Cards may 
be keypunched directly from this form. 


Control Card 

(One card for each different gage’s paper tape 
records contained on the translator magnetic tape) 
(Required). 


Variable 

STATE 

IW1D 

WSH 

GAGE 

NPFG 

NTPT 

IEOF 

Format Code 

A3 

14 

16A1 

3A4 

12 

12 

11 

Card 

Columns 

1-3 

4-7 

8-23 

24-35 

36-37 

38-39 

40 


IT 

KT 

OUT2 

NSKIP 

NOEOF 

KT1 

KT2 

12 

12 

A6 

11 

12 

12 

12 

41-42 

43-44 

45-50 

51 

52-53 

54-55 

56-57 

KT3 

KT4 

NDST 

NEWDAT 

IGREl 7 



12 

12 

11 

11 

14 



58-59 

60-61 

62 

63 

64-67 




Variable 

Description 

STATE 

The abbreviated State name, (example: 
Pennsylvania = Pa.). 

IWID 

The State watershed location number 
(example: Mahantango Ck., Pa. = 1601). 

WSH 

The watershed name (example: Mahan- 
tango Ck.). 


GAGE The gage location identification (ex- 
ample: Gage - RE38) (Maximum of 12 
characters). 

NPFG The number of paper tape records for 

the gage (example: NPFG = 12, paper 
tape records for the period are 12). 
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Variable 

NTPT 

IEOF 

IT 

KT 

0UT2 

NSK1P 


NOEOF 

KT1, KT2, 
KT3, and 
KT4 


Description Variable 


Description 


The total number of paper tape records 
on the translator magnetic tape, This 
variable will be coded the same on each 
control card for the process, 

If 9999 (four 9's) is written on trans- NDST 
lator tape after each paper tape, IEOF 
~ 0. If end-of-filc marks (EOF) are 
written after each paper tape, IEOF - 1. 

The computer-read unit number on 
which the translator tape will be 
mounted during processing (Example: 

IT = 01). 

The computer-write unit number on 
which the output storage magnetic tape 
will be mounted. (Example: KT = 03). 

The magnetic tape volume name on 
which the output storage data will be 
written (Example: OUT2 = MAH333), NEWDAT 
When coded as 1, this variable will 
initiate a readout of a specified number 
of paper tape records from the trans- 
lator tape. The paper tapes read will be 
ignored* and processing will commence 
on the paper tape immediately follow- 
ing the last paper readout. The number 
of paper tapes to be read out will be IGREF 
coded under the following NOEOF vari- 
able. If no paper tape records are to be 
skipped, NSKIP will be coded as zero, 
and processing will begin on the first 
paper tape, 

The number of paper tape records to be 
skipped on readout if NSKIP equals 1. 

NOEOF equals zero if NSKIP equals 
zero. 

These variables are control codes used 
by the computer in writing an end-of- 
file on the output storage magnetic tape 
or tapes at completion of processing. 

The proper coding for these variables 
would be the same as the “KT” vari- 
ables used on any or all control cards. 

(Example: KT1 = 03, because one mag- 
netic storage tape is used and the tape 
to be end-filed is KT = 03). A maximum 


of four output storage tapes may be 
used during one processing. Each would 
be end-of- filed at end of process. 

This code is used in special cases where 
a dual-control, stream gaging station 
exists, one control for measuring low 
flows and another for measuring high 
flows. In this special case, NDST would 
be coded as zero for the high-flow 
control and as 1 for the low-flow 
control. When runoff data is from a 
single control station, NDST would be 
coded as zero. The NDST code is used 
in later processing to identify the proper 
rating table or curve to be used in 
computing discharge. 

This variable, when coded 1, specifies 
that a different type of hydrologic data 
will follow the present data. A new 
header card must be read following the 
last paper tape record of this control 
card. NEWDAT will be coded zero if 
same type of data is to follow. 

The maximum change in gage-recorded 
amount that may occur in a given time 
interval, or maximum gage height 
allowed. This variable is necessary be- 
cause of the possibility of erroneous 
punch outs on the paper tape by the 
digital-recording gage. If any gage- 
punched reading for a given time in- 
terval exceeds the value of this variable, 
the data is considered invalid and is 
ignored by the computer. Default values 
for the three types of hydrologic data 
will be used when IGREF equals zero. 
These defaults are as follows: (a) a 
maximum of 1-inch change in precipita- 
tion amount in a 5-minute interval, (b) a 
maximum of 30.00-foot gage depth for 
any runoff amount, (c) a maximum of 
60.00-foot gage depth for any ground 
water level. 
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Variable 

NCOD 

GAG 

NPIL 

NTYPE 


Label Card 

(One card for each paper tape record contained on 
the translator tape) (Required). 


Note: The card columns of this card are identical to 
the columns of the “paper tape identification 
form.” 


Variable 

NCOD 

GAG 

NPIL 

NTYPE 

NTRACE 

Format 

14 

3A4 

12 

11 

12 

Card 

Columns 

1-4 

5-16 

17-18 

19 

20 


MTl 

ND1 

NYU 

NY1 

NH1 

12 

12 

12 

12 

12 

21-22 

23-24 

25-26 

27-28 

29-30 

NM1 

ARD1 

MT2 

ND2 

NY22 

12 

FH.2 

12 

12 

12 

31-32 

33-36 

37-38 

3940 

4142 

NY2 

Nil 2 

NM2 

ARD2 

ICHECK 

12 

12 

12 

F4,2 

11 

43-44 

45 46 

4748 

49-52 

53 

NLIST 

ITCIIG 

LDATA 

ELEREF 


11 

11 

11 

F6,2 


54 

55 

56 

57-62 



Description Variable 


Description 


The gage malfunction error code for the NTRACE 
paper tape record. (Example: NCOD 
1,000 is good data) (See Error Codes, 

App. 1). 

The gage location identification, this 
variable is coded the same as “GAGE 
on the control card for tills gage (Ex- MT1 

ample: RE38 )• ND1 

The paper tape punchout time interval ^ ] 
(Example: 05 for a 5-minute punch 

interval). ^ 

The type of data being processed, 

NTYPE will equal 1 for precipitation, 2 

for streamflow, and 3 for ground water NH1 

data. 


If the rain-trace sensor on a rain gage is 
in operation for the paper tape, 
NTRACE =1, if sensor out of opera- 
tion, NTRACE = 0. If processing runoff 
or ground water data, NTRACE = 0. 

The paper tape beginning month. 

Tiie paper tape beginning day. 

The first two digits of the beginning 
year (Example: 1970, NY1 i = 19). 

The last two digits of the beginning year 
(Example: 1970, NY 1 =70). 

The beginning hour (military watch 
time, 24 for midnight). 
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Variable 


Description 


Variable 


Description 


NM1 The beginning minutes. (This variable 

should be a multiple of 5 or 30). 
(Example: If NM1 = 15 for 15 minutes 
after the hour, the paper tape time cycle 
is every 5 minutes), 

ARD1 The beginning punchout reading 

(Example: 000.0 = zcro precipitation, 
01.00=1 foot of stream depth, etc.). 
(Decimal point not punched; therefore, 
data must be right justified about the 
decimal point). 

MT2 The paper tape ending month. 

ND2 The ending day, 

NY22 The first two digits of the ending year. 

NY2 The last two digits of the ending year. 

NH2 The ending hour (military watch time). 

NM2 The ending minutes (a multiple of 5 or 

30). 

ARD2 The ending punchout reading (decimal 

point not punched). 

ICHECK The coding of this variable pertains to 
the end of paper tape control of four 
9’s. The proper coding is found under 
the “translator operator errors” in table 
4 and Column 53 of the paper tape 
identification for table 2. (See “Trans* 
lator Error Card” below). 

NLIST Used on runoff or ground water data 
only. If all output records are to be 
listed on a printer, NLIST will equal 1. 
If only the page headings, the first and 
last record for each paper tape period 
and a summary for each paper tape are 
to be printed on output, NLIST will 
equal zero. The precipitation data is 
automatically listed, and in this case, 
NLIST would be coded as zero. 


1TCHG If a precipitation trace sensor malfunc- 

tion under “NCOD” above occurred 
during the record period, and if the 
trace sensor is to be ignored, ITCHG 
would be coded as 1. ITCHG would 
equal zero in all other cases. 

LDATA Ttris variable describes the number of 
comment cards (loss data cards) that are 
to be read immediately following this 
label card or a translator error card, if 
present (LDATA may have a value of 
zero through 9). If LDATA is equal to 
zero, no loss data cards will be read. 
ELEREF Used by ground water well data only. 

This variable is coded with the value of 
mean sea level elevation when the top of 
a ground water well is reference to 
elevation. The output data would be 
. values of elevation in place of gage-read- 
ing depths, If the well is not referenced 
to mean sea level elevation, the&variablc 
ELEREF would be coded as zero, and 
the output would be gage-reading water 
depths in feet. The maximum elevation 
of a well at ground level is 9999.99 feet 
(Decimal point not punched). 

The following cards can be inserted in the input 
data card deck immediately following the paper tape 
label card. The first, a “Translator Error Card,” will be 
needed in the event that a translator operator’s error 
occurred at the time of translation, and the gage 
malfunction error code (NCOD) is for a time gain or 
loss. The second, “Loss Data Cards,” can be used to 
note a period of data loss between or during paper tape 
collection periods, 
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Translator Error Card 

(Optional card after a label card) 

Note: If “ICHECK ” under Label Card above does not 
equal zero for the paper tape record, this card 
must be present in the input deck. The format 
of this card coincides with the format of the 
“Label Card’ 1 above. 


Variable 

BLANK 

IMO 

IDA 

1Y 

IYR 

IHR 

IMN 

Format 

36X 

12 

12 

12 

12 

12 

12 

Card 

Columns 

1-36 

37-38 

39-40 

4142 

43-44 

45-46 

47-48 


ARED 


F4.2 


49-52 


Variable 

Description 

Variable 

Description 

BLANK 

36 blanks are not used. These blanks 

IYR 

The last two digits of the computed- 

orient the card variables to coincide 


tape ending year (Example: 1970, 


with tire “Label Card” format. 


IYR = 70). 

IMO 

The compuled-papcr-tapc-rccord ending 

IHR 

Tire tape ending hour (military time). 

IDA 

month (See “Translation Procedure 
Errors” Section). 

The computcd-papcr-tapc-rccord ending 

IMN 

Tire tape ending minutes (IMN must be 
a multiple of 5 or 30). 


day. 

ARED 

Tire ending punch-out value (Decimal 

1Y 

Tire first two digits of the computed- 


not punched). 


tape ending year (Example: 1970, 
1Y ~ 19). 


Loss Data Cards 

(Optional cards after the “Translator Enoi 
Card” or “Label Card”). These cards are used 
to note a loss of data between two paper tapes. 


Variable 

ACARD 


Note: A maximum of nine cards allowable. 


Variable ACARD 


Forma t 

Card 

Columns 


80A1 


1-80 


Description 


Variable 


Description 


Comments for output on Ihe data list- 
ing. The “LDATA” code under the label 
card layout must be greater than zero to 
read “Loss Data Cards.” The number of 


loss data cards read and printed will 
equal the LDATA code from the label 
card of the preceding paper tape. 
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ORDER OF INPUT 


The Input Data Cards are stacked in the following 
order: 

1 . Header Card (one card, required), 

2. Page-Heading Cards (maximum of three cards, 
optional), 

3. Snow Date Cards (maximum of 999 cards, 
optional). 

4. Control Card (one card, required), 

5. Label Card (one card, required). 

6. Translator Error Card (one card, optional), 

7. Loss Data Card (maximum of nine cards, 
optional). 

8. Repeat steps 5 through 7 for each paper tape 
record for a gage, 

9. Repeat steps 4 through 8 for each gage’s data. 

10. Repeat steps 1 through 9 for each type of data 

on the translator magnetic tape, 

(A typical stacking order is illustrated in figure 9.) 
The translator magnetic tape contains the basic 
input data. The physical makeup of this tape is a long, 
continuous string of digits, each four digits represent- 
ing a 5- or 30-minute-interval data entry. An imaginary 
decimal point is located between the third and fourth 
digits for precipitation data and between the second 
and third digits for runoff and ground water data. The 
presence of a number 8 in the first digit of a 
precipitation reading signals a trace sensor indicator. 
The occasional appearance of four 9*s represents an 
end of a paper tape record, Following every 1,020 



Figure 9, -A typical input-data-cards stacking order, 


digits, a blank space and unprinted line indicate an 
interrecord gap. A pictorial view of a section of data 
listed from a translator magnetic tape is illustrated in 
figure 10. A "box” encloses a group of four 9’s to aid 
recognition. 

The combination of input cards and translator 
magnetic tape completes the input data requirement of 
the processing computer program. • 


CQ76CC 76CU76CQ7GGC 7600 76CC 76CC76G 0760 U 7 60076007600 7600 7 60 07 600 760 Q 7600760076007600760076 
C 07 6CC76CC7 6 00760076007600760076 00 7600 760076007600 760C 760076007600 7600760076007600 760076 
00 760076007600 760076C0760Q 7600760076007600 7600760C760C760076C0760076007600760076007600 76 
q0 760G 76007600760076(10760 C 7 6007 6O076C07600 76C 0760 C 7 60 0 760 07 6 00 7600 7600 7 60 076 0076007600 76 
l JC76CC7600760076CC76(;C 760C760076007600760076007600 7600760076007600 7600 76007600 7600760076 
JC76C0 76007600 7600 76007600760076007600760076007600760 C760C 76007600 76007600 7600 76007600 76 
/CO 76C0 7600 760076007600 760C760C 76007600760076007600 760076007600 76007600 76007600 760076007 6 
^GC 7b CO 7600 7 6 CO 760C7 6CC7 6C0760C7 60076007600 76 007600 7 60 C 76007600760 07 600 7600 7600 760076 00 76 
CC76L07600760076CQ7600760C760C76007600760076007A007600760076Q0760C 760076007600 7600760076 
007600760076007600760076007600760076007600 7600760C760C 76007600760076007600 76007600760076 

(INTERRECORD GAP) 

00 7600 76C0 76C076C076Q07 60076CC76007600 760C76007600760C76U07600760076007600760076007600 76 
CC76CC 760076007600 7600760076007600760076007600760C760C76C076007600 7600 760076007600760076 
0076C0760Q 760C76007600760C760G7600760C760076007600 760 C760C 76007600 76007600 760076007600 76 
00 760076007600760C 76007600 7600760076 00 760076U0 760C7600 7600 7600760076007600 7600 76007600 7 6 
CO 76C0 7600 7600 7600 7600 760C760C7600760C76007600 7600760C760C7600760C76007600 7600 76007600 76 
0076C07600 7600760076007600 7600761)076007600760076007600 7600 76C07600 7600 760076C0 76007600 76 
BM300760076007600 7600760076007600 76007600 7600 760076007600760076007600760076007600 7600 76 
00 7600 760076007600 76U07600 76U076007600 ^600 76007600/600760076007600 7600 76007600 76007600 76 

CC76C0 7600 7600760 0760U76CC 76 0 076007 6 00 7600 760 0760 0760C 7600 7600 7 60 C 76007600 76 GO 7600760076 

C07600 76007600760076007600 7600760076007600760076007600 760076007600760076007600 7600760076 

c0 ' 6 (INTBERKCORD GAP) 

0076C076a0760 c 7fc0 0 7600 760C760C7600 7600 /6007600760C76GC76007600760C76Q076007600 760076007 6 
CO 76C0760076007600760C760C760C 760076007600 7600 7600 76007600 760076007600 76007600 76007600 76 
GC 7600760076C076007600 7600760C7600760076007600760C760C 7600760076007600760076007600760076 
0076C0760Q7600760C760076007600760076n0760076fi076G0760C76007600760a?600760076007600760076 

007600 760076007600 7600760076007600760076007600 7 600760 C 7600760076007600 7600 760076007600 76 
J0 76C07600 760C76CC7600760Q760C7GOG760U760U760C76UG Z60C760C7600760C7600760076C07600760076 


Figure 10, -A pictorial view of a section of data listed from a translator magnetic tape, 
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COMPUTER SOURCE PROGRAM 


The computer program developed to reduce the 
digital hydrologic data was written in Fortran IV 
language for use on an IBM 360/67 computer system. 4 
This source program is comprised of a main program 
and nine subroutine subprograms to aid in program 
“debugging” and because of their ease in following the 
program’s flow direction. 

A major function of the program is to edit the data 
for extraneous gage readings from the translator 
magnetic tape and to retain only those gage readings 
that are needed to reproduce the hydrologic events for 
a record period. These values with appropriate date and 
time, gage malfunction error code, and other identi- 
fying information are listed on a printer and written 
on magnetic tape storage as output. A complete errors 
edit is performed using information from the Trans- 
lator Operator’s Error or Loss Data Cards. 

The appropriate action is taken by die program to 
identify these errors by printed messages on the output 
media. The program does not attempt corrections of 
gage malfunction errors. The error codes provide 
sufficient information for a later step in data correc- 
tion and analysis. The program was written to enable 
the reduction of all three types of digital hydrologic 
data: streamflow, precipitation, and ground water 
.wells. 


A normal method would be to reduce each type ot 
data separately, avoiding a mixture of the three types 
of data on a single magnetic storage tape. 5 One type of 
data per storage tape provides a less complicated data 
retrieval at a later date. A source program and 
input-data loading order is illustrated in figure 11. The 
// and /* cards are computer residence cards, which can 
vary from one computational center to another. A 
listing of the program is given in Appendix II. 



Figure 11. -A diagram of the computer source program 
and input-data loading order. 


TRANSLATOR MALFUNCTIONS AND THEIR COMPUTER CORRECTIONS 


The paper-tape-to-magne tic-tape translator places 
data on the magnetic tape in a binary -coded decimal 
form. The signal strength of each digit must lie within 
the acceptable signal strength range of the computer 
device used to read the magnetic tape, It has been 
found with the Model 1730 translator that the signal 
strength of an individual digit occasionally may fall 
outside this acceptable range. Consequently, an invalid 
character is usually substituted for the correct 0-to-9 
digit. 

Tills invalid character will cause the program to stop 
execution, and the data on the magnetic tape beyond 
tills point becomes inaccessible in the current job step. 
This character results in an error code IHC215I on the 
IBM 360/67 system, It can be bypassed by the use of 


4 IBM Corporation. IBM systcm/360 operating system, 

Fortran IV (G) Programmer’s Guide. File No, S360-25, Form 
No, C28-6639T. 1966. 


the ERRSET subroutine. An example of the invalid 
character might be 01*3 instead of 0123. The ERRSET 
statement simply informs the computer to take the 
invalid character 0 and to convert it to a valid digit 
(1). Tills results in a usable four-digit number (0113). 
The one digit is obtained from the last argument in the 
CALL ERRSET statement. Likewise, the second argu- 
ment (256) allows for 256 of the IHC215I errors 
before program execution is completely terminated. 
The values of these two arguments is arbitrary within 
certain limits (See Ref. No. 3), 

A second translator malfunction that can occur with 
the model 1730, although less frequently, is a perma- 
nent input error (IBM-IHC218I), This error is also 
produced from a weak signal on the translator mag- 


s Shanholtz, V. 0„ and Burford, J. B. Computer systems for 
reduction and analysis of hydrologic data, U.S, Dept. Agr,, 
Agr, Res. Serv., ARS 41-132. 1967. 
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netic tape. When the computer attempts to read a 
record and is unable to recognize the value as valid, the 
ERR = argument of the input data READ statement 
(main program, App. II) instructs the computer to 
reread die record in error. The record is reread 
numerous times in an attempt to receive a valid value. 
If a recognizable value is obtained, the program 
execution continues. If not, execution fails, and the 
processing stops. 


Following the use of either of these correction 
routines, the computer reduction program is designed 
to ignore the corrected record if its value is above or 
below a set amount when compared with the preceding 
and following record. 

However, the occurrence of these malfunctions is 
rare. The use of very high-quality magnetic tape in the 
translation process can help to reduce the possibility of 
a translator malfunction. 


COMPUTER OUTPUT DATA 


The output data from the computer reduction step 
can be written via a printer and/or placed on perma- 
nent magnetic storage tape. 

An example of the printer output is given in figure 
12 and illustrates one paper tape record period from 
Rain gage RR-44, Mahantango Creek Watershed. The 
collection period began 9/9/69 at 1020 with zero 
rainfall and ended 10/7/69 at 1100 with 2.6 inches of 
accumulated rainfall. During this period, the rain trace 
indicator was in operation and is noted on the records 
with a “T” as trace rainfall. The “type” column is 
blank, because only rainfall was measured, not snowfall 
or other similar precipitation. 

Tire blank line spaces across the listing are rainfall 
event separators. These represent an hour or more 
between the end of one rain and the beginning of 
another. The footnotes describe the computer versus 
the watch-time ending of the paper tape, the number 
of basic records written on magnetic tape, the number 
of records read and analyzed, and the type of rain gage 
malfunction error for the collection period. 

The streamflow output listing (fig. 13) depicts a 
recording period of 6 days from stream gage WE38U. 
In tliis example, the “list” option, described as 
“NLIST” in the “Computer Input Data” section, is in 
effect. The output is similar to the precipitation listing 
in Gage No., Date, Time, and Code columns. The 
“Time Intr” column represents the number of 5- 
minute intervals during which the stream level re- 
mained at the corresponding gage depth under the 
“Depth (FT)” column, The presence of zero in the 
“Discharge Table No” column indicates that the data 
record is from a large control of a “dual-control gaging 
station.” The footnotes follow the same format as that 
in the precipitation data listing. 


The printed output from ground water well data as 
shown (fig. 14) is generally the same as output from 
streamflow. This output is also a result of the “List” 
option effect. The “NREFE” column indicates, by the 
presence of a blank, that gage depths are actual 
instrument readings not referenced to M.S.L. elevation. 
Every 2400-hour reading for the entire record period is 
listed and written on the magnetic tape for both the 
ground water and the streamflow data. 

When the list option (NLIST) is coded as zero, the 
printed output for each ground water well or ’stream- 
flow paper tape will contain only the page and column 
heading?, the first and last record written on magnetic 
tape storage, and footnote information. This option of 
zero or no listing allows the summary of the paper tape 
information without printing all basic output records, 
thus decreasing the initial processing time. A listing of 
the basic output records may be obtained from the 
magnetic storage at some later date. 

The magnetic storage tapes contain only the basic 
output records. These records are written in an 
unformated form, or format-free output, Each integer 
or real variable of a record requires four bytes of 
magnetic storage, and every character of a literal 
character string requires one byte, plus four extra 
computer-required bytes for each record written. The 
storage requirements for each precipitation record, 
streamflow, and ground water well are the same: 56 
bytes. The magnetic tape is written in blocked records 
of 1 00 records per block, and the variable block size 
(VBS) needed to store the different length records is 
6,004 bytes, including four extra bytes per block, 

The Fortran IV naming convention must be fol- 
lowed when reading or writing unformated records on 
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PRECIPITATICNIBREAK POINT BASIC DATA) 
NFWRCtUNIVFRSl TY PARK * P A* 

STATE-PA. STATE I ND * N0.*1600 


WATERSHE 0 = MAHANTANGn CR. GAGF=RR44 


GAGE 

NO. 

MONTH DAY YEAR 

TIME TRACE 

HP MIN 

PR EC l P DEPTH TYPE 

FOR INTERVAL 
l INCHES) 

PRECIP CODE 

ACC. 

( INCHES) 


TAPF BEGINNING 

DATE, TIME, READING* 

9/ 9/1969 1020 0. 

0 


RR44 

9 

17 

1969 

16 

35 

T 

0.0 

0.0 

1000 

RR44 

9 

17 

1969 

16 

40 


0.2 

0.2 

1000 

RR44 

9 

17 

1969 

17 

10 


0.1 

0.3 

1000 

RR44 

9 

17 

1969 

17 

25 


o . i 

0.4 

1000 

R»44 

9 

17 

1969 

17 

45 


0 . 1 

0.5 

1000 

RR44 

9 

17 

1969 

.17 

50 


O.l 

0.6 

1000 

RR44 

9 

17 

1969 

22 

45 

T 

0.0 

0.6 

10 00 

RR44 

9 

17 

1969 

23 

0 


0.1 

0.7 

1000 

RR4 4 

9 

17 

1969 

23 

50 


0.1 

0.8 

1000 


RR44 

9 

25 

1969 

13 

55 


0 . 1 

0.9 

1000 

RR44 

9 

27 

1969 

21 

40 

T 

0.0 

0.9 

1000 

RR44 

9 

27 

1969 

22 

35 


O.l 

1.0 

1000 

RR44 

9 

28 

1969 

7 

20 

T 

0.0 

NO 

1000 

RR44 

9 

28 

1969 

7 

35 


0, 1 

1.1 

1000 


RR44 

10 

2 

1969 

9 

55 T 

0.0 

1.1 

1000 

RR44 

10 

2 

1969 

10 

25 

0, 1 

1.2 

1000 

RR44 

10 

2 

1969 

11 

5 

O.l 

1.3 

1000 

RR44 

10 

Z 

1969 

12 

5 

O.l 

l • 4 

1000 


RP44 

10 

2 

1969 

13 

1 5 

T 

0.0 

N4 

1000 

RR44 

10 

2 

1969 

13 

35 


0.1 

1.5 

1000 

RR44 

10 

2 

1969 

14 

40 

T 

0.0 

1.5 

1000 

RR44 

10 

2 

1969 

14 

45 


0. 1 

1.6 

1000 

RR44 

10 

2 

1969 

15 

40 


0.1 

1.7 

1000 

RR44 

10 

2 

1969 

16 

0 


0 . 1 

1.8 

1000 


RR44 

10 

2 

1969 

17 

10 

T 

0.0 

1.8 

1000 

RR44 

10 

2 

1969 

17 

25 


0. 1 

N9 

1000 

RR44 

10 

2 

1969 

18 

30 


0.1 

2.0 

1000 

RR44 

10 

2 

1969 

19 

0 


0. t 

2.1 

1000 

RR44 

10 

2 

1969 

19 

55 


0.1 

2.2 

1000 

RR44 

10 

2 

1969 

20 

55 


0. 1 

2.3 

1000 

RR44 

10 

2 

1969 

23 

10 

T 

0.0 

2.3 

1000 

RR44 

10 

3 

1969 

0 

10 


0.1 

2.4 

1000 

RR44 

10 

3 

1969 

1 

20 

T 

0.0 

2.4 

1000 

RR44 

10 

3 

1969 

l 

25 


O.l 

2.5 

1000 

RR44 

10 

3 

1969 

2 

10 


0.1 

2.6 

1000 


END OF TAPE N0.3NF0R GAG E-RR44 END OF TAPE ON LABEL* 1 0/ 7/1969 TIME*ll 0 READING* 2*6 

ENO OF TAPE COMPUTED* 10/ 7/1969 T IME* 1 1 0 READING* 2.6 

THE NO. OF RECORDS WRITTEN* 44 

THE TOTAL NO. OF PUNCHES FOP PAPER TAPF WAS COMPUTFD TO BE* 8073 PUNCH INTERVAL* 5 

DATA FOR PAPER TAPE WRITTEN ON TAPF NO. VA1 3 14, FOR STORAGE — THE ERROR CODE FOR TAPE*1000 
ERROR CODE HOOO) GOOD DATA TAPE NO APPARENT ERRORS 

Figure 12.-~An example of printer output from one precipitation record, 
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T| 


STREAM FLOW (BREAK POINT BASIC DATA) 

NEWRC t.. UN I VERSIJY ..PARKjPA* 



STATE 

-PA. 

STATE 

IND. 

NC.» 

1606 





water SHEC* 

MAHANT ANGO CK 


GAGE- 

HE3 8U 



CAGE - ’ 

MONTH 

day 

YEAR 

T t ME ’ 

TIME 

DISCHARGE 

CEPTH 

CODE 

NO. 




HR 

MIN 

INTR 

TABLE NO. 

(FT) 


£ EG IN OF TAPE LABEL* WE 3£U 

10 

£ 

1970 

12 

50 



0.23 

1000 

FIRST RECORD CN NAG , * WE 3Clf . 

.....10 

6 

1970 

12 

50. 

12 

0 

0.23 

IOCO 

HE3 6U 

10 

fi 

1970 

12 

50 

12 

0 

0.23 

1000 

WE3GU 

10 

6 

1970 

13 

50 

24 

0 

0.22 

1000 

WE38U 

10 

6 

1970 

1 5 

50 

46 

0 

0.21 

1000 

WE3 eu 

10 

6 

1970 

19 

4 0 

52 

0 

0.20 

1000 

WE 3fiU 

10 

6 

1970 

24 

0 

203 

0 

0.20 

loco 

WE 3£U 

10 

1 

1970 

16 

55 

B5 

0 

0.19 

IOCO 

WE 3 £11 

10 

1 

1970 

24 

0 

123 

0 

0*19 

loco 

WE3£U 

10 

9 

1970 

10 

15 

54 

0 

0.20 

1000 

WE3EU 

10 

£ 

1970 

14 

45 

111 

0 

0.19 

1000 

WE3EU 

10 

e 

1970 

24 

0 

117 

0 

0.19 

1000 

WE3GU 

10 

9 

1970 

9 

45 

53 

0 

0.20 

1000 

WE36U 

10 

9 

1970 

14 

10 

ne 

6 

0.19 

1000 

WEB EU 

10 

9 

1970 

24 

0 

70 

0 

0.19 

1000 

WE 3£U 

10 

1C 

1970 

5 

50 

204 

0 

0.20 

1000 

W£3£U 

10 

1C 

1970 

22 

50 

14 

0 

0.19 

1000 

V/E3 EU 

10 

1C 

1970 

24 

0 

27 

0 

0.19 

1000 

WE38U 

10 

11 

1970 

2 

15 

261 

0 

0.20 

1000 

WE3GU 

10 

11 

1970 

24 

CT 

203 

0 

0 .20 

IOCO 

LAST RECORD CN MAG* WE3SU 

10 

11 

1970 

24 

0 

1 

0 

0.20 

1000 


END OF TAPE NO. 1 , FCR GAGE-Hfc 3 fit END OF TAPE ON LABE L =10/ 1 2/ 1970 TIME*17 0 READING® 0.19 

END OF TAPE COMPUTE C = lp/ 12 _/ 1970 _TU(E »17 0 READING* 0.19 
‘ “ ~ THE NO. OF RECCRCS WRITTEN® IB ' 

TOTAL RECORDS WRITTEN CN MAG • TAPE SINCE BEGINNING 11 1 242 

TFF TOTAL NO. OF PUNCHES FCR PAPER TAPE WAS COMPUTED TO BE* 1779 PUNCH INTERVAL- 5 

DATA f OP PAPER TAPE' HR IT TEN 6N ' TAP E" NO. DUMMY - # FCP"SfCRAGE«- T HE “ERROR CODE FOR tAPE-lOQO 


£ R RCR CaC£*(lCCD» GOOD OATA TAPE-NC APPARENT ERRORS 


Figure 13. -An example of printer output for one streamflow paper tape record. 
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AOUIFER 

CATA ( BREAK POINT 

DATA) 




NEWRC t 

IMVERSITY PARK, PA. 













STATE-PA. 


STATE 

IND. 

NC.M606 



WATERSHED* 

pahantango ck. 


GAGE* AD37-30 


ELEVATION REFERENCE* C.00 BEGIN 

GAGE 

HEIGHT* 24,00 




GAGE 

PC 

DAY 

YEAR 

TIME 

NREFE 

GAGE DEPH. 

CODE 

BEGIN CF TAPE LABEL* AD37-38 

A 

3 

1 97 C 

1430 

0 

24.00 

1000 

FIRST 

RECCRD CN MAG.* AC21-38 

A 

3 

1970 

1430 

0 

24.03 

1000 


AC37-38 

A 

3 

1970 

15 0 

0 

24.03 

1000 


AC37-38 

A 

3 

1970 

1530 

0 

24.03 

1000 


AC 3 7-3 8 

A 

3 

197C 

16 0 

0 

24.03 

1000 


A C37-38 

4 

3 

1970 

1630 

0 

24.03 

1000 


AD37-3B 

A 

3 

1 97 C 

17 0 

0 

24.03 

1000 


AC37-38 

A 

3 

1970 

1730 

0 

24.03 

1000 


AL37-38 

4 

3 

1970 

18 0 

0 

24.02 

1000 


AC37-38 

4 

3 

197C 

1830 

0 

24.01 

1000 


AC37-3Q 

A 

3 

1970 

19 0 

0 

23.98 

1000 


AC37-3B 

4 

3 

1970 

1930 

0 

23.97 

1000 


AD37-38 

A 

3 

1970 

20 0 

0 

23.96 

1000 


AD37-38 

4 

3 

1970 

2030 

0 

23.93 

1000 


AD37-38 

4 

3 

1970 

21 0 

0 

23.92 

1000 


AC37-38 

4 

3 

1970 

2130 

0 

23.91 

1000 


AC37-38 

4 

3 

1970 

22 0 

0 

23.90 

1000 


AC 3 7-3 8 

4 

3 

1970 

2 2 30 

0 

23.88 

1000 


AC37-38 

4 

3 

1970 

23 0 

0 

23.88 

1000 


AC37-38 

4 

3 

1970 

2330 

0 

23.08 

1000 


AC37-38 

4 

3 

197C 

24 0 

0 

23.08 

1000 


A C 3 7“ 3 8 

4 

4 

197C 

030 

0 

23.88 

1000 


AC37-38 

4 

4 

1470 

1 0 

0 

23.88 

1000 


AC37-39 

4 

4 

1970 

130 

0 

23.88 

1000 


AC 3 7-3 9 

4 

4 

1970 

2 0 

0 

23.80 

1000 


AC 3 7-3 8 

4 

4 

1970 

230 

0 

23.88 

1000 


AC37-36 

4 

A 

1970 

3 0 

0 

23.88 

1000 


AC 3 7-3 8 

4 

4 

1970 

330 

0 

23.88 

1000 


AD37-38 

4 

4 

1970 

4 0 

0 

23.86 

1000 


AC37-38 

4 

4 

1970 

430 

0 - 

23.88" 

loo~o’ 


AC37-38 

4 

4 

1970 

5 0 

0 

23.88 

1000 


AC37-38 

4 

4 

1970 

530 

0 

23.88 

1000 


AC37-38 

4 

4 

1970 

6 0 

0 

23.88 

1000 


AC37-36 

4 

4 

1970 

630 

0 

23.87 

1000 


AC37-38 

4 

4 

1 97 C 

7 0 

0 

23.86 

1000 


AC37-36 

4 

4 

1970 

730 

0 

2 3.84 

1000 

LAST 

RECORD CN MAG.* AC’37-38 

4 

4 

1970 

B 0 

0 

23.81 

1000 


Ending 

GAGE HEIGHT LABEL* 

23. 

B1 



ending 

CN 

TAPE LABEL 

B 4- 

4-1970 

8 0 

23.81 


END OF 

TAPE COMPUTED 

* 4- 

4-1970 

8 0 

23.81 


ERROR CCCE 

FOR PAPER 

TAPE 

-1000 




75-RECORDS 

WRITTEN FOR 

PAPER 

TAPE 



RECORDS 

WERE 

RRITTER 

CN MAG. TAPE-DUMMY 



A TOTAL 

OF 

- 

67 RECORDS 

WERE WRITTEN ON MAG 

. AT THIS POINT 


ERROR CO Dt= ( l C CO ) GOOD DATA 

TAPE-NC APPARENT ERRORS 












Figure 14. -An example of printer output from one ground water (aquifer) paper tape record. 
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magnetic slot age tape. The same type, identical first the magnetic tape. The output variables and storage 

lettei, and variable names must be used when readings requirements of each of the three types of hydrologic 

record as were used when (he record was written on records are described in the following record layouts: 


1. Pjecipitatiou data storage records: Record Length = 

60 bytes (56 actual + 4 extra). 

Variable 

nvin 

GAGE 

NDATEU) 

NDATEU) 

NYU 

Storage 

(Bytes) 

4 

12 

4 

4 

4 

Significant 
Characters, 
per Field 

4 

12 

2 

2 

2 


NI)ATE(3) 

NDATi;<4) 

NDATE(5) 

TRACE 

DREC. 

4 

4 

4 

4 

4 

2 

2 

2 

1 

5 

STYPE 

NCOD 




4 

4 




1 

4 





2. Stream flow Data Storage Records: Record Length = 60 bytes (56 + 4). 

™D GAGI: NDATE(l) NDATEC2) NY11 NDATECH 

Storage — 

CD ytcs) 4 12 4 4 4 4 

Significant “ — — 

Characters 

per Field 4 12 2 2 2 2 

NDATE(4) NDATE'(J) NT1NT NDST AREC NCOD 


_ 4 4 4.4 4 4 

2 2 3 1 6 4 

3. Ground water well data storage records: Record Length = 60 (56+ 4). 

^ aliaWe IWID GAGE NDATE(l) NDATE(2) NYU NDATEt3> 

Storage ~ = — — - 

CBytes) 4 12 4 444 

Significant " — — — 

Characters 

per Field 4 12 2 2 2 2 

NDATE(4) NDATE(5) NREFE AAREC KCOD BLANK 


4 4 4 4 4 4 


2 2 18 4 
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Variables 


Description 


Variables 


Description 


IVVID 

Watershed Identification number. 

NDST 

GAGE 

Gage location number. Example: 
(WE38U ). 


NDATE(i) 

Month. Example: (12). 


NDATE(2) 

Day. Example: (31). 

NREFE 

NYii 

First two digits of the year. Example: 
09). 


NDATE(3) 

Last two digits of the year. Example: 


NDATE(4) 

(72). 

Hour (military time). Example: (24). 

DREC 

NDATE(5) 

Minutes (multiple of 5 or 30). Example: 
(00). 

AREC 

TRACE 

Trace on or off for record of precipita- 
tion. Example: (T). 

AAREC 

STYPE 

The type of precipitation, a blank repre- 
sents rainfall. Example: (S). 

NCOD 

NTINT 

Number of 5-minute intervals stream- 
flow gage level in effect. 
Example: (101). 

BLANK 


If equal to zero or blank, a large or 
single st ream flow control. 

If equal to one, a small control of a 
dual-control gage. Example: (0). 

If equal to one, the ground water well 
levels represent elevation. If equal to 
zero or blank, ground water well levels 
are actual gage height. Example: (1). 

Precipitation amount collected per time 
interval. Example: (000.2). 

Streamflow level for time- Ex- 
ample: (000.25), 

Ground water well level for time. Ex- 
ample: (01985.28). 

Gage malfunction ERROR code. Ex- 
ample: (1,000). 

Used as record-padding space (four 
blanks). 


CONCLUSION 

The edited magnetic-tape storage data provide the correction, aided through use of the malfunction error 

first step to digital hydrologic data analysis. The data codes, can be accomplished from the master files at the 

from these storage tapes are retained in the original discretion of the user, 
form as basic data master files. Analysis and data 
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APPENDIX I. GAGE MALFUNCTION EM OR 'CODES 


A ONE IN COLUMN ONE MEANS VALUE PUNCHED ON LAST PUNCH 
OUT OF PAPER TAPE IS TRUE VALUE RECORDED BY GAGE. A £ ER 
0 IN COLUMN ONE MEANS AN ERROR IN LAST VALUE PUNCHED. 

A 'X' MOTES A CHOICE OF A '1' OR A 'O' IN COLUMN ONE. 

1 000= GOOD DATA TAPE NO APPARENT ERRORS 

2 000 =D AT A CONTAINS ESTIMATED VALUES OR (ESTIMATED DATA) 

( TIME LOSS CODES ) 


XOU) = TIME LOSS-TIMER FAILURE GAGE STOPPED 

XOll = TIME LOSS-LEAF SWITCH FAILURE GAGE RAN CONTINUOUSLY U 
NTIL BATTERY FAILED 

X01 2 = TIME LOSS-TIMER FAILURE INTERMITTANT OPERATION 
X013 = TIME LOSS-TIMER FAILURE TIME DIFFERENCE AT END OF- PAP 
ER TAPE. 

XO 14 = TIME LOSS- 
X015 = TIME LOSS- 
XO 16 = TIME LOSS- 
X0I7 * TIME LOSS- 
X 0 1 B = TIME LOSS- 
X019 = TIME LOSS- 

X020 = TIME LOSS-NO APPARENT REASON 
X021 = TIME LOSS- 

X022 = TIME LOSS-LEAF SWITCH FAILURE 

X023 = TIME LOSS-BATTERY FAILURE 

X024 = TIME LOSS-IMPROPER TAPE INDEXING 

X025 = TIME LOSS-PUNCH MOTOR OPERATES I NTERM I TTANTL Y 

X026 = TIME LOSS-PUNCH MOTOR FAILURE 

X027 = TIME LOSS- 

X028 = TIME LOSS- 


X029 = TIME LOSS- 


( TIME GAIN CODES ) 

X030 = TIME GAIN-TIMER FAILURE 2 1/2 MINUTE PUNCH INTERVAL 
X03 1 = TIME GAIN-TIMER FA I LURE ’ I NTERM I TT ANT OPERATION 
X032 = TIME GAIN-LEAF SWITCH FAILURE GAGE RAN CONTINUOUSLY U 
NTIL BATTERY FAILED 
X033 = TIME GAIN-NO APPARENT REASON 
X034 = TIME GAIN-LEAF SWITCH FAILURE 
XOSS = TIME GAIN- IMPROPER TAPE INDEXING 

X036 = TIME GAIN-TIMER FAILED TIME DIFFERENCE AT END OF TAPE 
X03 7 = TIME GAIN- 
X038 = TIME GAIN- 
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X039 = TIME GAIN- 
X040 = TIME GAIN- 
X041 = TIME G A I N - 
X04 2 = TIME G A I N- 
X043 = TIME G A I N - 
X044 = TIME GAIN- 
X045 = TIME G A I N- 
X046 = TIME GAIN- 
X04 7 = TIME G A I N- 
X048 = TIME GAIN- 
X049 = TIME G4IN- 

( INCOMPLETE RECORD , IMPROPER PUNCHING, SENSITIVITY 
COOES ) 

X05 0 = TAPE IMPROPERLY INDEXED I NO TIME LOSS OR GAIN ) 

X051 = GAGE INSENSITIVE AT SOME POINT ON RECORD 

X052 = SNOW WITH FUNNEL IN PLACE 

X053 = INTAKE SILT PROBLEM 

X054 = INTAKE PIPE STOPPED UP 

X055 = DRIFTING SNOW 

X05 6 = FOREIGN MATTER IN COLLECTOR 

X05 7 = CABLE BREAKAGE 

X058 = GAGE TAMPERED WITH 

X059 = FUNNEL FALLEN IN COLLECTOR 

X060 = PRECIPITATION LOSS NO REASON 

X06 1 = 

X062 = 

XG63 = 

X064 = 

X065 = 

X'066 = 

X067 = PAPER TAPE SUPPLY RAN OUT 
X068 = TIMER TURNED TO TEST POSITION 
X069 = 

X 0 7 0 = NOTCH OF WEIR PROBLEM (ICE) 

X 0 7 1 = LOG JAMS OR BEBRE IN NOTCH 

X07 2 = VALUE GREATER THAN RANGE OF INSTRUMENT AT SOME POINT 
X073 = FLOAT TAPE DISENGAGED FROM RECORDER 
X074 a 
X 0 7 5 = 

X076 » 

X077 = 

X078 a ICE JAMMING ( CAUSE HIGH G H ) 

X079 = HEAVY ICEO CREEK 

( TRACE INDICATOR MALFUNCTIONS ) 

NOTE IF TRACE CODE USED OR COMBINATION OF TRACE CODE USED PL 
ACE A I IN COLUMN 55 OF PAPER TAPE IDENTIFICATION FORM 
X080 = TRACE PUNCHES WITHOUT PRECIPITATION 
X 0 8 1 = PRECIPITATION WITHOUT TRACE PUNCHES 
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TRACE INCONSISTENT 


XOH2 = 

XOH3 = 

X 0 8 4 = 

XU 8 5 = 

X 0 8 6 = 

X08 7 = 

X 0 8 8 = 

X 0 8 9 = 

( TRANSLATOR READING ERRORS ) 

X 0 9 O = TRANSLATOR READ HEAD MALFUNCTION ( INCORRECT RECORD ) 
X09 1 = MANUALLY INSERTED READING ON DOUBLE BUNCHES WRONG 
X09 2 = 

X 09 3 = 

X094 = 

X09 5 = 

X096 = 

X09 7 = 

X09 8 = 

X099 = 

( COMPLEX ERROR CODES ) 

X1O0 = X024+X026 TIME LOSS IMPROPER INDEXING 6 PUNCH MOTOR F 
A I LURE 

X101 = X035+X026 TIME GAIN IMPROPER INDEXING fi MOTOR FAILURE 
X 102 = X026+X080 MOTOR FAILURE £ TRACE WITHOUT PRECIPITATION 
X 103 = X020+X08 2 TIME LOSS NO REASON £ TRACE INCONSISTANT 

X 1 04 = X033+X082 TIME GAIN NO REASON £ TRACE INCONSISTANT 

X 105 = X023+X024 BATTERY FAILED £ TIME LOSS TAPE INDEXING 

X 106 = XO23+X035 BATTERY FAILED £ TIME GAIN TAPE INDEXING 

X 107 = X050+X082 TAPE IMPROPER INDEXED £ TRACE INCONSISTANT 
X 108 = XO 20+X080 TIME LOSS NO APPARENT REASON £ TRACE WITHOU 
T PRECIPITATION 

X 109 = X033+X080 TIME GAIN NO APPARENT REASON £ TRACE WITHOU 
T PRECIPITATION 

X110 = X023+X026 BATTERY FAILURE £ PUNCH MOTOR FAILURE 
X 1 1 1 = X024+X08 1 TIME LOSS IMPROPER INDEXING £ PRECIPITATION 
WITHOUT TRACE 

X112 = X035+X081 TIME GAIN IMPROPER INDEXING £ PRECIPITATION 
WITHOUT TRACE 

XI 13 = X024+X08 2 TIME LOSS IMPROPER INDEXING £ TRACE INCONSI 
STANT. 

X114 = X035+X082 TIME GAIN IMPROPER INDEXING £ TRACE INCONSI 
STANT. 

X115 = X012+X051 TIME LOSS TIMER INTERMITTANT £ GAGE INSENSI 
TIVE AT A POINT 

X116 = X031+X051 TIME GAIN TIMER INTERMITTANT £ GAGE INSENSI 
TIVE AT A POINT 

X 1 1 7 = X070+X054 NOTCH OF WEIR ICE £ INTAKE PIPE 'STOPPED UP 
X 1 1 8 = X060+X050 PRECIPITATION LOSS NQ REASON £ TAPE IMPRGPE 
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ft INDEXING. 

X 1 19 = X013 + X052+X055 TIME LOSS T I MER .FA I LUKE £ SNOW WITH FU 
NNEl & DRIFTING SNOW 

X120 = X036 + X052+X055. TIME GAIN TIMER FAILURE & SNOW WITH FU 
NNEL & DRIFTING SNOW 

X 1 2 1 = X024+X052 TIME LOSS IMPROPER TAPE INDEXING £ SNOW WIT 
H FUNNEL IN PLACE. 

X 1 2 2 = X035+X052 TIME GAIN IMPROPER TAPE INDEXING £ SNOW WIT 
H FUNNEL IN PLACE. 

X 1 23 = XO 24+ X 057 TIME LOSS IMPROPER TAPE INDEXING £ CABLE BR 
EAKAGE 

X 1 24 = X035+X057 TIME GAIN IMPROPER TAPE INDEXING £ CABLE BR 
EAKAGE 

X 1 25 = X052+X055 SNOW WITH FUNNEL £ DRIFTING SNOW 
X 1 26 = X026+-X052 PUNCH MOTOR FAILURE £ SNOW WITH FUNNEL IN 
X 1 27 = X013+X080 TIME LOSS TIMER FAILURE £ TRACE WITHOUT PRE 
CIPITATION. 

X 1 28 = X036+X080 TIME GAIN TIMER FAILURE £ TRACE WITHOUT PRE 
CIPITATION. 

X 1 29 = X026+X030 PUNCH MOTOR FAILURE £ TIMER FAILED 2 1/2 MI 
NUTE PUNCH OUT 

X 130 = X081+X050 PRECIPITATION WITHOUT TRACE £ TAPE IMPROPER 
I.Y INDEXED 

X 13 1 = X091+X024 TRANSLATOR READ HEAD MALFUNCTION £ TIME LOS 
S TAPE INDEXING. 

X 13 2 = X091+X035 TRANSLATOR READ HEAD MALFUNCTION £ TIME GAI 
• N TAPE INDEXING. 

X133 = X072+X073 VALUE GREATER THAN RANGE £ FLOAT TAPE DISEN 
GAGED. 

X 134 = X033+X081 TIME GAIN MO APPARENT REASON AND PRECIP. WI 
. THOUT TRACE. 

X 135 = 

X 13 6 = 

X 137 = 

X 13 8 = 

X.139 = 

X 140 = 

X 141 = 

X142 = 

X143 = 

X 144 = 

X 145 = 

X 146 = 

X 147 = 

X 148 = 

X 149 . = 

X150 = 

X 15 1 = 

X152 » 

X153 = 

X154 = 
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X 155 = 

X 1 5 6_ = 
XI 57 = 

X 15 8 = 

X 159 = 

X 160 = 

X 1 6 1 = 

X 162 = 

X 163 = 

X 164 = 

X 165 = 

X 166 = 

X 167 = 

X 168 = 

X 169 = 

X 1 70 = 

X 17 1 =' 
X_17 2 = 

X 1 73 = 
X174 = 

X 175 = 
X176 = 
XI 7 7 = 

X 178 = 

X 1 79 = 

X 180 = 

X 18 1 = 

X 182 = 

X 183 = 

X 184 = 
X185 = 

X 186 = 

X 18 7 = 

X 188 = 

X 189 = 
X190_= 
XI 91 =" 
_X i 92 =_ 
X 19 3 = 

X 194 =_ 
X 19 5 '= 

_ X 1 9 6_= 

X 19 7 =*' 
X 198 = 

X 199 = 
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APPENDIX 1 L. C QM P. UJ..ER.....S Q U B£ EL ERJOGRAAL J. IiUNfi, 


L0GICAL*1 W SHI 16 ) , HC AP Dl( 54) » HCARD2 (54 ) ,HCARD3(54) 

_ LOG. 1C A.L* 1. .. 0 U.T.2 .( .6 ) , ACARD180 > - 

COMMON GUT2,ACARD 

COMMON/6LK1 /STYPEI999) f AR_EC ( 2 57 L, CRgC t 2 57 ) » AIR A (2571 »C. 

1TRA (257 ) , GAGE (3) , GAG{3) ,NSDTE ( 999 , 3 ) , NOATE ( 257 , 5 } 

__ COMMON./ BLK2 ZJ , I j L tilSTOP j NCHEpK , NSTORE t I S TO ft E . ICHECK t Rl 

ICE, NWSH,KSEQ,NSEQ,NOTE,MIAC, NSK I P , NL I ST , NPFG , 

2. NQPT iNCPT L fiTP T, NIYPE ,NX , KB, I X , AAXNC , I.E..QF., NQEGF , NC.QO., IT 

3, KT ,NST ART , LDATA , ELEREF ,NSC , YACC , ACC , NT RACE , ABASE , NSNO 

_4W, IND.EX,NGG , NEED j NUTj.AIRE.Cj BTR_EC,I TIC ..._ ..,N.OS.Tf ._ 

5NffNT,LTINT »NOftM,LHEC,DftEC,NTIC f ADIFF,NFIRST t NREFE,NPI 

tl YR , MTITn M l', N Y 27 nMON TH 7 I H R , N 

1 D lj AR D 1 , NH 2 , N DA Y , I MO_,.!.MN»_NY 11 ,MT2»NM2 .,_N Y E AR , IRA, NY.l »..NP. 

2 2 f AR02 , NH OU R , NY E , N YXX , I TMO , I T D A , I T YR , I THR , I TMN » GR EF , 

3 M A Sid., N D.E.X i K.TM 0 K T.Q A jlKI Y KJ.Y.R j.K.T.HR t JLTW N. t N S.T A.8.E. » I Y * Aft E 

AD,MTINT, IWID 

__C OM MGN / B L K4 / LJLL ( 1 2) / B_L K 5/TR< 2 )_ 

CALL ERRSET (2L5, 256, -1,1, 1) 

_NFJ_LE~ 1 

NCPT=0 

NSEQQrQ _ 

5001 KSEQ=0 

C J NI_I ALLUM - OF STORAGE — — 

DO 1 L = 1 » 2 5 7 

DO 1 1=1,5 

ATRA(L) =0,0 

_ AREC( L) =00. 00 __ 

CTRA(L) =0.0 

CRE C( L) =0 0.0 0 

“ 1 NO ATE <L , I ) =00 

DO 55 _Ifl |_999 

DO 55 K = 1 ,3 

55. NSD TE ( I ,K ) =00 

' 'nstope=o 

N0 TE = 0 __ — 

~ ' NST 0P=0 

nse_q=o _ . 

nsnow=6 

ATREC = 0,0 

bTrec=6.o 

kb=o ; 

nrefe=o 

NQR M=0 
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■ C READ HEADER CARD FDR NUMBER OF PAGE HEADING CARDS _ 

R EAD < 5 , 152 ) NHEAD,NSC 

152 FORMAT ( I ljJJJ 

C READ PAGE HEADING CARDS 

LFlNHeAD_.EQ.OJ GO TO 5002 

READ (5, 5003 J HCARDL 
5003 FORMAT ( 54A 1 ) 

IF(NHEAD.EQ'.iT GO'To 5002“ ~ 

R EAD ( 50 03 HCAR D2 

IF ( NHEAD.EQ .2 ) GO To'5002 

READ<5 ,50 03) HCARD3 

5002 CONTINUE “ 

c X X X _X SNOW C_ARDS READ jF NSCGT ZERO AND PRECIP DATA 

i F ( NSC . EQTo ) GO* to' 3~ * 

DO 1 51 I- 1 , NSC 

READ(5",2) (NSDTEI I,L> ,L-1 , 3) ,'STYPE (TV 

2_ _F0_RMAT(3I2,A1) 

151 CONTINUE" ‘ 

3 NQPT-0 

NCHECK=0 

_index=i 

YACC*0.0"" " 

NEE D = 0 _ 

I X=0 " ' ' 

NST ART =0 

I F { N S C . E O'. 0 )" NS C = 1 “ " 

C X X X X CONT ROL CARO RJAD 

R E AD ( 5 , 4 ) Sf A T E f I' W I D , WSHTg AG " , NP FG , NT PT » I EG F , IT ,KT,0UT2 

1 1 NS KI P »_NOEOF , KX 1 » KT2 > K T3_» KT4 , ND S T , NE WDA T , I G R EF 

4 FORMAT (A3, I 4, 16A1, 3A4 ,212, II ,2 1 2,6 Alt I 1 » 5 12 1 2 1 1 , 14 ) 

CXXXXX XX XX LABEL CARD READ X_XXXXXXX 

5 READ ( 5 ,6 > NCO D, G AGE , NP I L , N TYP E , NT RACE", MTl ,ND 1 , NY 1 V, NYl 

ljNHl,NMl, ARD1,MT2,ND2» NY22, NY 2, NH2 , NM2 , ARD2 , ICHECK.NL I 

2St i ITCHGr LDATAi ELEREF 

6 JF0mATJ_I4j_3A4,_I2,2Il,2( 612, F4. 2) ,411 ,F6.2) 

AGREF=IGPEF " “ '' ' ; 

IFINT YPEj E Q . 1 ) _GR EFj^AGREF*. 1 

I F ( N T YP E . E Q . 2 . 0 R . N T Y P T. EQ . 3 ) GREF =A GR EF * .01 ~ 

LFiIGREF.EQ.JJ.AND.NTYPE.EQ.lJ GREF = 001.0 

IF ( iGREF.EQ.O.AND.NTYPE.EQ .2) GREF= 30. 0 0 

IFJ_I_G_RE F .EQ. 0_. A ND ._N J YP E . E Q . 3 ) G RE F = 6 0 . 0 0 

I F ( I G R E F . E Q . 0 . AND . N T YP E . E Q73 “AN 0 . E L E R E F . G T . 0 . 0 ) GR E F= E 
ILEREFF 60.00 

MI AC=1 * * 

IF ( IT CHG. E Q.l ) NTRACE=0 

C X X X X X X CHECKING'FOR“ "PROPER' “DATA' TYPE AND WRITING HEA 
C DI NGS 

DO 992 MN“ 1,3 " " 

IF(GAGE( MN) .EQ.GAGJMNJ I G,0 TO _992_ 

GO TO 991 " - “ * 




992 CONTINUE 

GO fo 8 

_991 _ WRI TE( 6»7 ) 

7 FORMAT ( * STOPPED WRONG TYPE DATA OR GAGE NAMES DO NOT 

1 MAT CH 1 ) 

GO TO 3000 

_ 8 WR IT. fij. 6 j. 5004) 

5004 FORMAT (1H1) 

I_F ( NHEAD. EQ .0 ) GO TO 5006 

WRITE ( 6,5005) HCARD1 

5005 FORMAT! 37X,„54A.l ) 

IF ( NHEAD. EQ . 1 } GO TO 5006 

WRI TE(6j 5005) HCARD2 

I F( NHEAD. EQ. 2 j GO TO 5006 

_ W RJ_T E ( 6t 500 5) HCARD3 _ 

5006 WRITE (6,9) ST ATE , I HI D , WSH »G AGE 

9 _ FORMAT ( 37 X t • STATE- », A3 , 5X STATE IND. N0« = • , 1 4//37X , 

1 * WATERSHED* ' , 16A1,5X, 'GAGE=* , 3A4//) 

NJCEf0_ _ _ 

NOT E=0 

NWSH=0 ... .._ 

NY E = NY 11 

NMQNTH=MT 1 .. 

NDAY=NOi 

NYEAR=NY1 

N HO UR « N HI 

NMI N=NM.l ; 

NX=0 

I M0 = MT2 . 

I DA=ND2 

I HR = NH2 _ 

IMN=NM2 

ARED=AR02 

NUT = 0 

_ _ACC = 0.0_ 

' ” NST ARE = 0" 

IST0R6*0 

I T ii C-0 

NEED = 0 . 

NG0 = 0 

NF I RST= 1 

iTf fCHECK.EQ.O) GO TO 14 

CXXXXXXXXX READ TRANSLATOR ERROR CARO 

READ (5,31 ) ' I MO", I DA , I Y , I YR , I HR , I MN , ARED 

31 F0RMAT(36X,6I2,F4.2) 

' 14 I F ( NST ORE .EQ. 0) GO TO 15 

C X X X_ X __X XXX X TAKE OUT OF STORAGE DATA STORE D F ROM LAS 

“C T "READ 
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DO 101 J-l i MA XNQ 

AREC ( J ) =CREC ( KB ) 

_____ _ JFJNTYPE.NE.il GC TO 101 _ . .. 

ATR A ( J ) =CTR A ( KB 1 

101. KB=KB+1 __ 

J=MAXNO 

GO TO 103 

C X X X X X X X XX INPUT DATA READ OF MAG. TAPE 
__ C_X X X_X X_X X _X_ X T_E ST FOR FOJUR NINES _END 0 F_ TAPE 
15 DO 150 J = l, 255~ 

JF (NTY_PE.EQ.il .GOJTO 900_2 _ _ 

. RE A 0 ( I T , 1 0 , EN D* 2 00 , ERR =9000) AREC ( j ) 

10 FORM AT! F4 .2 ) _ _ __ 

ifueof.eq.iPgcTto 150 

9001 I F ( AR EC ( J ) « EQ » 99 . 99 ) GO TO 104 

GO TO i 50 

_9000_READ( IT,10_ f _END=200_,EM ! l9_gon ARECUJ _ 

I F ( I EOF . E a . 1) GO TO 150 

GO TO 90 01 . _ 

9002 READ! IT ,“99, END=200, ERR=9003T ATR A ( J ) , ARECUf 

99 FORMAT ( F l_.0_iF_3_.il. 

I F( I EOF.EQ. 1) GO TO 150 ' 

9004 I F ( AR EC ( J 1 ^EQ .9 9. 9_. AND.AJRAJ J1.EQ. 9.) GO TO 104 

GO TO 150 

9003 R EAD! IT »99» END=200. ERR = 9Q04 ) A TRA ( J ) , AR EC ( J 1 
fFllEOF.EQ.l) GO TO 150 " 

GO JO. 9004 

150 CONTINUE ‘ ““ 

CXX XX XXXXX CONTINUE NOT END OF PAP ER_ TAPE 

J=255 ' *" 

103 NSTORE =Q _ 

NCHECK=0 
N0TE=0 

13 CALL DA TIME ' “ 

GOTO 11 __ 

C X X X X X X X X X END OF PAPER T^PE STEP PAPER TAPE COUNT E 

__C R 

104 NCPT=NCPT+1 ' '•••■ 

NOPT=NOPT + 1 

NOT E=1 

N STOR E-O _ 

NCHECK=f ' " *“ 

NX=1 _ 

I F ( J . E Q • 1 ) GO T0 11 <f “ ~ ‘ 

JXfO_ 

CALL D.ATIME 

11 IF ( NORM.EQ. 1) GO T0 ”i2 " " 

GO. T0_ J10 

12 CALL CHECKO ~ 
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— £5 _LCL3.fi.QJQ — 

GO TO 1L0 

C X X X X X X XXX R EAD END OF FILE BRANCH QN ._D.AJ_A._R EAQ — 
200 NCPT =NCPT+1 

ND pT*NOPT+ l 

NSTOP-O 

NST0RE=0 

NCHECK-1 


.N.QIE=X 


IF(J.EQ.l) GO TO 13 

J=J-i 

GO TO 13 

CXXXXXXXXX TEST. JO. _SQE I F EN D OF ALL..PAPE R. IAPJS. 


FO. 


C R A GAGEtOR 

_C X X X X X X X X _X_ END .. Q F „A LL ...P A P g R . TAPIS.. FOR T HE_. R UN 

"UO IFINOPT.EQ.NPFG) NWSH=1 

IF(N CP T.EQ.NTPT ) NS_I_QP_».1_, _ - 

LTINT-0 

IF(NX.EQ.l) GO TO 31 1 

NX= 0 


311 


IFINT YPE.LT. 1 .OR «N T YPE .GT .3) GO TO 9 91 
IF(NTYPE’.EQ.l) CALL PRECIP 

IF ( N TYP E.EQ «2)_ CALL RUNOFF 

IFtNTYPE.EQ.3) CALL AQUFER 
NSTARE=1 


N I CE= 1 

_ I F ( NC H E CK_. EQ.ll NS T A R E = 0_ 
i F ( NCHECK «EQ . 1 ) GO TO 28 

GO T0_15 

28 CALL OUTPUT 

I F ( NSTQP . EQ. 1 ) G O . TQ._32 — — 

IF( NWSH.EQ. 1. AND. NEWDAT. 6Q.1 ) GO TO 32 

I F ( NWSH . E Q. JJL GO fQ....3 - 

GO TO 5 

C X X X X X X XX X_JE.ND._QF_ PROGRAM W RITE IN FRO. ABOUT TAPE 


SE 


PERATERS 
3 2 NSE QQ= N S E OQJHNSEQ. 


50 


I F ( I EOF .EQ. 0 ) GO TO 51 

WRITE ( 6,5 0) - 

FORMATT 1 INPUT PAPER TAPES WHERE SEPERATED BY EOFS 


GO T O 50 0 .. ----- - - - 

53 FQRMA T?» 5 INPUT PAP ER TAPES WH ERE SEP ERATED .BY ...F OUR-N I N_ 
1ESM 

500 I F ( NEW DAT. EQ . 0) GO TO 501 - 

WRITE (6,452) NSEQ,NF ILE 

452 FORMAT ( 1H0 , * TOTAL RECORDS _WRI T.TEN 0_N_ MAG. T APE- ,1 6 , 

IFOR TAPE FILE NO^ * ,13)" 

1J <NSKIP.EQ.H GO TO 500 1 

NFILB=NFI LE+1 > 
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END FIL E KT 

GO TO 5001 " 

501 WR ITE (6.451 INSF Q’O 

451 FORMAT! 1H0, ‘TOTAL NO. RECORDS WRITTEN ON'mAG^TAPE* *7f 

1 6 J 

IF(KTl.NE.O) '“ e'ND - FILE KTl 

— LFjKTZ. NE.O) END FILE _KT2 

IF(KT3.NE.O) END FILE KT3 ’ 

F F< KT4. N E.0 ) END FILE KT4 

3000 STOP ' * 

END 

SUBROUTINE' CATI ME 

— AND TIME FOR EACH RECORD R FAD TW 

LOG I CAL* I OUT 2 ( 6 ) , ACARoTaO) n 

COMMON OUT 2 > AC A R D 

1 ™ w S ~ ? L 1 K L /sTf P E 1 9 9 9 r » AR E_c < 25 7T,CRECC2 5Ti7A T RAT25'fr^ 

— IIRAJ_2 57J_» GAG£ ( 3 ) t G AG ( 3 ) y N S DTjEjJ? 9 9 j 3 ) _* N D A T E { 2 5 7 * 5 1 

COMMON/8LK2/J , I , L , N STOP , NCH6CK , NSTOReTl STOR^I CHEClT, N T“ 

LGJLi -N W SH , KSEQ t NSE Qt NOT E»MIACtNSKIP r NLIST»NPFG. 

A N ^ T w^A^ NTPTfNTYPE »NX ( KB,IX7 mAXN 0, iECFrNOEOFrNCODTTf 

hi n II A ? I l ^ALAaE^REFj-NjC^ACC^ACC^N T RACE , ABASE, NSNO 

4W , INDEX , NGO , NEED , NUT, ATREC , BTREC , I TI C TnDST 

— - f JL jlN fL LBS T t N RJEF E * HP l 

M 1 , NY 2 , NMONT H , I HR , N 

1 D1 , ARD1 , NH2 , NDA Y, IMO, I MN » NY 1 1 , MT2 , NM2 t N Tea' R'VTd'A ,“N Y 1 '.Ub 

L-NHOU^Y E , NVXX . ITMg.ai.D All TYR , I_TH« ! I TWN , GREF? 

40^;^{^r’ KTDA ’ KTY,KTrR,KtHR ' ^MN.NsfAW.iV.ARE ~ 

C OMMON/B LK4 / LLUT2l7BLK5/T"R iTj ~ ' — - - 

—Q — X^ |_X „L^A P_Y E_AR_ TEST XJL X X X^X X X X XX 

l.f_<.NY.EAR .EQ . 00. AN D ,J\| Y E . N E . 2 0 > GO TO 11 

IFINYEAR.EQ.OO. AND. N YETNE 2 6 T" G 0 TO U 

— if 11.N YtA R /A* ftJL-JLQ . NY E A R J J. LL { 2 ) = 29 

C X X E HEIGHT X X X FILLI ^ ar * a ’Y WITH "OAfE~U!E' 6 'f'TACH 'GAT 

Tl rFTjTEQ^‘256~rj=T* r l 

DO 13 1=1, J 

NDATE ( I , 1)» NMONT H 

N DA T E (_I t_2 )_= N D A Y 

NO AT E < 1 , 3 } = NY EAR - * 

N QAT Ei IjAL=_N HOU R __ 

NDATE < 1 , 5) = NMIN "" 

IFiNCOD . NE„.JjO 00 . AN D.;ICH €CK .EQ.O > GO TO 446 

1 i ^ A/!in^? t uD*c!!^fu^ ^ • AND • ( I DA.EG.NDAY) .'AND. (I YR.EQ.NYEAR 
iliANO-i I.HR. EQ. N HQ U R ) • A NJ3 . ( IMN.EQ.NMIN) I GO TO 107 

lGo' TQ M ^2 YH * ^ * • A ^ D **"tNb*V.EQ.3r I .AND. (NHaijR .EQ^fi 

NmF=NM'i'N+NPiT ' — 
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o'o 


MAC^MIACJLl 

IF(NMIN„NE.60) GO TO 34 

NHGLUR = N HOUR + 01 

NM I N = 00 ' ’ 

-3A LFJ jLWMO.UR^LCk 2^L« AND_._I.MM1N t _£.£L.O0i l_ GO IA 13 

IF (NHOUR.LT. 24) GO TO 13 ~ " 

MDA^(sJJL4X±QJ_ 

NHOUR = OQ “ 

K^N MQNT H . 

I F ( NOAV.LE. LtU K ) J GO TO 13 ~~ 

NMQ NJ H=NMGNJH+01_ 

NDAY*01 ' ~ " 

GO. TO_l 3_ 

12 N MO NTH- Ol" “ * 

ND AY= Q1 

N YE AR = N Y EAR + 01 

LLL ( 2 ) = 28 

I F < NY EAR. EQ.66.ANO.NYE~.NE .20) GOTO 1001 

IF < (NYEAR/ 4*4 ) .EG. N YEAR )_ L L U 2J_=2 9 _ 

1001 IF(NYEAR.NE.IOO) GO fo 20 " "* 

nyear=oo 

nyI i«NYii+i “ 

NY2 2=NV22+1 

20 NHOUR-OO ” ~ “ : 

dMIN=NPIL 

13 CONTINUE ” - *' 

NORMj=0- 

GO TO 108 " 

— 10.1 _ NOR M=1 

10 8 RETURN ' ~ ~ 

£ND _ 

SUBROUTINE CHECKO' 

5..UBR.»_ .FINDS END. OF _PAPER _TAPE__I F ICHECK CODE IS USED AND 

A ERROR HAS OCURRED ' "" 

_ LOGICAL*! 0U_T2( 6) , ACARDI 80) 

COMMON 0UT2,ACAR0 * ~ " ' — 

CmMON/BLKl /STYPE ( 999 ) >AR EC( 257) r CRECC2 57J , AJRM257) ,C 

1 TR A ( 2 57 ) , GAGE { 3 ) » G A G ( 3 ) ,NSDTE< 999, 3~i ,NDATE'( 257 t Jf ~ 

COMMON / BL K 2 / J t L » N.S.T OP , NCHECK_, NSTORE, I STORE, ICHECK ,NI 

ICE t NMSH , KSEQ , NS EQ , NOTE , MI AC , NSKI P , Nli ST , NPFG* 

2N0PT ,.NCPT t NTPT , NTYPE ,NX , KB , I X jMAXNO » I EO F , NOEOF » NCOD , IT 

3,KT t NSTART f LDATA , EL EREF , NSC ,Y ACC , ACC , NT RACE** ABASE ,’NSNO~ r 

4W_,_INDEX,NG 0,NEEDtNU TtATRE C,BTREC, ITI C_ , ND S T » 

5NTI NT ,LTINT ,NORM, LHEC , DR EC , NT I C ,~AD I F B , N FIRST , NRE F eT'N P I " 

6 L 

COMM ON/ BL K 3 / NH i , N Y 2 2 , N M I N~,TyrTm T I' N M 1 , NY 2 , NMONTH , I H R , N 

_ 1 PIjlMPI i Mg j. N D A Y , I M Q , I M N , N Y 1 1 f M T2 f NM2 , NYE AR , I DA , NY1 , ND 

22,ARD2t NHOUR, NYEjNYXX, ITMO, ITDAf lfYR» I THR , I T MN , GREF , 

3MASH, ND EX ,_KTMO, KTDA ,KTY , KTYR , KTHR , KTMN , NSTARE , I Y, ARE 

4D,MTINT, I WI 0 “ 
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C0MM0N/8LK4/L LL ( 12)/B1K5/TR ( 2 ) 


c * * 
c 

* CHECK TO SEE IF PAPER TAPE SEPERATORS EOFS 
S 

OR 4 ' 

NINE 

NPEXT=0 

.... __ IFUEOF.EQ.il GO TO ?05 

C X X 

c 

X X X X X X X TESTING TO SEE IF E~ND OF PAPER 
ROL FOUR 

TAPE 

CONT 

C X X 

c 

X X X X X X X -NINES WAS LEFT OUT OR 01 FFERENTI SEE 
ECK) 

ICH 

107 1 F ( NOTE • EQ. Oi GO TO 100 

C FOUND 4 NINES 



108 

IF < ICHECK .EQ.2) GO TO 116 

IF ( ICHECK. GT. 5) GO TO 125 



118 

J = I 

NST0RE=0 



116 

GO TO 110 

IF(NTYPE.EQ.l) GO TO 9004 



10 

READ! IT,10,END=201,£~RR = 9001) EREC 

FORMAT {F4.2 ) 



120 

IF( IEOF.EQ. 1) GO f5"T09 

IFIEREC.EQ.99.99) GO TO 118 



C X X 
109 

X X X X X X X STORE DATA FOR NEXT PAPER TAPE 
NST0RE=1 




IF( NTYPE.EQ.l ) CTRAI 1)=ETRA 

CREC ( 1 ) =EREC 




MAXN0=1 " ' 

J=I 




KB= 1 

GO TO 110 



9004 

99 

READ ( IT, 99, END=201 » ERR =9005 ) ETRATEREC 

FORMAT ( FI .0 i F 3 . 1 ) 



9006 

IF( IEOF.EQ. 1) GO TO 109 

IFIEREC.EQ.99.9 .AND . ETRA . EQ.9. ) GO TO 118 



9005 

GO TO 109 

READ! IT, 99, END=201 , ERR=9004> ETRA t FRFf. 



9001 

GO TO 9006 

READ{ IT,10,END=201,ERB=116 ) EREC 



100 

GO TO 120 
.NCPT=NCPT+1 




NQPT=NOPf +1 ' 

NCHECK=1 




IF(NPEXT.EQ.l) GO TO 1 08 

NEDR=0 




i 2 = j- i *’ 

J=I 




IF ( I2.EQ.0) NEDR = 1 ' 

IFINEOR.EQ.il 12=255 




11 = 1 + 1 ' " ~ 

I F ( NEDR.EQ. 1) 11=1 




KEND- 1 1 + ( 12-1 J ’ " 
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. .NKK = 0 




NCC = 0 

__ijii<;=q_ 




IF(NEDR.EQ.O) GO TO 170 

— £Q_..J£L_.LS_Q 



170 

DO 171 KP=I l r KEND 
—IFiiJT Y P fL*_£jQLtJLJ G-IBALk 5 J-?AJ R A Lk P i 



rrr 

CREC(KP)=AREC (KP) 




£ Ji£££L_T.CL BE AP_ T_A_P E._..I N T 0._MR EC ARRAY I F ( NEDR= 1 ) GO TO 

179 DO 180 KX- 1 1 » KEND 

1 F (_IJE O F . E Q . 1 ) GO TO .1J1 

IF (NTYPE. EQ.l ) GO TO 9007 

_ LF (-CREC(KX) .EQ .9 9.99) G O T O 1 82 

9008 IF(CRECIKX) .EQ.OO.O) GO TO 180 

112 NKK-1 

GO TO 184 

ill IF ( EREC. EQ. 00 . 0 ) .GO TO 180 

GO TO 112 “ 

? -QSZ „iFiC.R£CJJ<„X_)_ • E Q.. 99. 9 • AN D. CTfi A (KX).EQ.9.) GC TG 182 

GO TO 900 8 

1 80 CONTJ NUE_ 

NEDR-1 "" ~ ' “ 

IKK- I J<K +1_ 

IF < IKK. EQ . 5 ) GO T6 12 5 ' 

1 74 11^1 

KEND= 25 5 ~ ' 

_ GO TO 190 

182 I F C I C HECK . E Q . 2 j GO" TO "1 83~ ' 

I.F ( KX • EQ. KJE NO } GO TO 199 

188 MAXNO=KEND-KX ' ' " - 

KB=KX+1 

18 9 NST0RE«1 “ 

GO.. TO . 1 10_ 

184 IF( KX . EQ.KEND F GO TO 173 

KV =K X+1 

192 I F ( I EOF • E Q . 1 ) GO TO 186 

I F ( NTYP E. EQ .1I GQJ 0 9009 

I F ( CREC { KV ) .EQ.99799T GO TO ”172 

1 8.6 ...IF ( K V . E Q. K E NO ) GO TO 18 7 

KV=KV+1 " — - 

GO. TO 192 

9009 I F ( CREC ( K V) . EQ . 99 .9 . AND. CTRA ( KV). E Q . 9 . j. GO TO 172 
GO T O 1 86 _ 

18 7 MAX N0= K E NO -*< K X- 1 > • - 

_KB=KX 

IF ( ICHECkTeQ.IT GO TO '188 • - - 

_ GO TO 189 

1 7 2 MA X N 0 = K E NO- KV - 

KB = KV+_1 

GO" TO 189 ~ " — 
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LZ2_ 

__£RE£(1) = CREC(KX) 

IF(NTYPE.EQ.l) CTRA ( 1 )=C TRA ( KX ) ' " ~ ' 

11 = 2 

190 

KEND=255 

DO 191 KX=I 1 , KEND 

IF(NTYPE.EQ.l) GO TO 9010 

READ(IT,10»END*201,ERR*9002) CREC ( KYI 

9010 

GO TO 191 ' 

. READ ( IT, 99, END= 20 1 , ERR=901 1) C TRA < KX ) ,r.RFf f K x ) 

9011 

GO TO 191 

R£AD( IT,99,£ND=201) CTRA ( KX ), CREC ( KX ) 

9002 

GO TO 191 ‘ 

READ( IT, 10, END-201) CREC ( KX ) 

19i 

CONTINUE - 

GO TO 179 

183 

NCC=NCC + 1 

IF( KX.EQ.KEND) GO TO 174 

I F( NCC • EO .2 ) GO TO 188 

I I = KX + 1 

199 

GO TO 179 '' - 

NST0RE=0 

125 

GO TO 110 

WRITE (6,126) 

126 FORMAT!' UNABLE TO DETERMINE END OF PAPER TAPE--~STOPP 

1 E D 1 } 

NST0P=1 

. GO TO 110 

C X X 
205 

X END DF FILES USED AS TAPE SEPERATORS 

I F ( NOTE .EQ. 1) GO TO 108 

I F ( I C HE CK . E Q . 2 ) GOT 0~~2 06 “ ' ~ 

- - GO TO 100 


206 DO 207 KXE =1,255 


— IE.LMJ-YP L*JS.«iA_60 TO 901 2 

KEAD( IT* 10, ENb=203,ERR=9003) CREC (KXE) 

GO TO 2 07 _ u 

_ 9012 HZ 1 207 9 ’ EN0= ^ ’ ^ ^ R =9013) " cTr A (KXE ) » CREC (KXE ) 

9013 ?n A ?T r nT 9T£T °^ ~ 

fey_J.Q_2.07 

9003 R E AD ( I T »Td^ END»ToYFCREC( KXgl 

207 CONTINUE 

MAXN0=255~ — - ,• 

KB-1 

NS TORE*! ~ - 

: J=I __ 

GO TO lib - - 

GO T n_ j_nn 

CXXXXXXXXX READ END OF F I L E ~B RAN CH 0 N ( I C HECK ROUT 1 


AO 



-£ tt£_R£AJD). 

201 NSTQP=0 ** 

—202 MLtif C K= 1 

NSTQRE=0 ' ' 

WO-I£.=lL 

GO TO 118 “ " •• 

UP R ETU RN 

END ' ‘ r ' — 

SUBRO UTI NE PR EC IP 

LOGICAL*! OUT2( 6i , ACA“RD'(Tdl 

COMMON 0 UT2 ,ACA RD 

COMMON/ BL Kl/S TYPE ( 999) ’,AREC { 257) Cl R EC ( 2 57) , ATRA { 257) , C 

UIM±2572_i G AGE (3 ) , GAG(3 ) «NSDTE (999 ,3) , NDATEJ 257 , 5 ) 

CGMM0N/BLK2/J , I , L ,NSTOP , NCHEC K , NSTORE , I ST CP E »*I CHECK "» N I 

1 CjE_ f N.WSH, KSEQ,NSEQ.NQTE M.I.AC , NS K I P ,_NL 1ST, NPFG , 

2N0PT ,NCPT ,NTPT , NTYPE ,NX» KB » I X , MAXNO » I EOF » NOEGF »NCOD , I T 

J^iKTj_NS I AR L».L D A.IA. EL_E R E Fj NS C , , YA C C , A C C_, NTRACE, ABASE »NS NO 

4W, INDEX, NG0, NEED, NUT, ATREC,BTREC, I TIC , NDS T , 

INIINlimjj. T. L N_OR M, LHEC, DR EC , NT IC f ADI FF jNF IR S T_, NR E F E , N P I. _ 

6L 

— C.OMM ON/ BJLK3 / ’ NH 1 1. N Y 2 2_iN.M.I N ,1 YR , M T 1_, N M 1 , N Y 2 , NMO NT H , I H R , N 

1 D 1 , ARD1 , NH2 , NDAY , IMO , I MN , NY1 1 , MT2 , NM2 ,N YE AR , l DA ,NY1 , ND 

2 2.tAR_D2. f N.HOURj.ilYE A N YXX_,_. J _TMO_t I TDA , I T YR , ITHR,I TMN » G RE F , 

3MASH ,NDEX,KTMO,KTDA,KTY,KTYR, KTHR , KTMN , NS TARE , I Y , ARE* 

4D , MTINT, I WIP _ 

C0MMbN/BLK4/LLL ( 12)/ BLK5/fR(2 ) " 

IFJ_NICE._EQ._1) GO T0_229 

WRITE! 6, 201) 

201 FORMAT (26 Xt 'GAGE* ,7X. • MONTH DAY YEAR ' , 4X , 

3 'TIME TRACE PRECIP DEPTH TYPE PRECIP CODE'/ 

12-6.X ,, jJN Q.n L..2XX t J H I R „MIN FOR INTERVAL 

2 ACC. '/77X, M INCHES) {INCHES)'/) 

-C...X X.X.X_X. X X X._ X_ WRITE BEGLNN ING DATE TIME GAGE HEIGHT IF 

C THE FIRST 

c X X X X X X X X X READING OF A PAPER TAPE 
BRDi=ARDi*10.G 

WRI T E ( 6 ,46) MT 1 ♦ ND ljJMYJ. lj NY 1 tNHl A NM 1 , BRO 1 _ 

46 F0RMAT(37X, 'PAPER TAPE BEGINNING DATE ,T I Me 7"READI NG* »' '/l“ 

1 2 f J./J_tI 2 j / J , 2 1 2 x 3 X , 1 2_, I 2 ,_2 X , F 4 . 1 / ) 

CXXXXXXXXX ROUTINE TO EDIT OUT EXTRANEOUS READINGS, ' 
. C WR I£E_0 N _M A G 

NT I C=0 

NSNOW-O _ 

IF(J.EQ.l) GO TO * 311 

1*3 


229 

GO TO 306 

1 = 1 




306 

IF( NSTARE «EQ. 1) 
ABASE=AREC( I) 

GO 

TO 

307 

307 

I F ( NTRACE. EQ. 1 ) 

~GD~ 

To 

350 
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o o So 


X X X X X X X TRACE OUT ROU TINE 

IFIARECII ).LE. ABASE) GO TO 313 

K I X = I +1 

NJ0E= 1 

JF. UU X , EQ » J ) GO TO 400 

IFUREC(KIX).EQ.ABASE) GO to 401 

400 _ADJFFfAREC( I) -ABASE _ 

fF( AOIFF.GT .GREF ) GO TO 313 

310 _J FJLNSNOW. EG . 1) GO TO _309_ 

MASH=1 

31_6__DQ 3_17 I_NDE_X=J_ l NSC __ 

' IF IN DATE (I t 1) .EQ. NSOTE (INDEX » I) .AND. NDATE! I ,2)*EQ-NSD 

1TEUN DE Xj_2)_. AND, NT) ATE ( I_, 3J . E Q ,_NSDJ E < I ND E X , 3 ) ) GO TO .315 

317 CONTINUE 

N SNQW= 0 _ _ _ 

GO TO (309, 313} , MASH 

, 309 __D REC= AR E C (J } - A B AS E _ 

" acc=acc+dre“c r 

_ _TRACE = TRU) 

I F ( I X • L T • 12)* G O fo 3 28 

WRITE I6, 329) ______ 

329 FORMAT ( 1H ) 

IF( NSKIP. EQ.l) GO TO 400 0 

LX= I - 1 

TYP E = TR ( 1 ) 

iF(LX.EQ.O) GO TO 392 
KTMO=NDAT£ ( LX , 1 ) 

KTD A= NDATE ( LX ,2) 

KTYR= NO AT E ( LX , 3 ) 

KTHR=NDATE( LX, 4) 

KTMN=NDATE( LX, 5} 

KTX = NY11" 

392 AKTC=ACC-DREC 

WRITE ( 6 , 27) GAGE , KTMO , KTDA ,KTY, KT YR , KTHR ,KT MN , TRACE * AT R 
IEC ,_TYPE , AKTCj_NCOD 

W R I T E ( K T ) I W I D , G A G E » K T MO , K TO A , KT Y ,~KTYR, KTHR ,~K T M N ,TR A C E V 

_1ATREC,TYPE, NCOD 

KSEG=KSEQ+1 
GO TO 3 28 

328 T YPE=TR ( 1) ' 

I F ( NS N GW.EQ.1_) _T Y P E = S TYPE^NO EX ) 

I F ( NSKI P. EQ. IT GO TO *4000 ! .* 

WRITE(6,2 7) GAGE, <NOATE( I ,_M) f M*I , 2 ) , NY1 1 , ( NDATE ( I , N ) »N 

1 = 3, 5) , TRACE , DR EC , TYPE , ACC i NCOD 

27 FORM AT (2 3 X » 3 A 4 , 3X , 1 2 , 4X , 12 , 4_X , 2 1 2 , 3 X , I 2 , 3X , 1 2 , 5X , A 1 , 7 

IX , F 5 , 1 , 9X , A 1 , 4 X , F 5 . 1 » 4 X , i 4 ) 

_-U R JJiiA T A._.lW I D , GA GE » ( NDAT E ( I_, M ) , M= 1 , 2 ) » N Y 1 1 » ( NDATE ( I , N 

1) »N"3*5) , TRACE, ORECf TYPE, NCOD" 
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o [O O { ; i 0:0 0 


KSEQ=KSE .Q+l 

4000 IF(N0AT6( 1,4'kEQ” 24J NSN0W=0 

N_£EQi=l 

NT IC=0 

JLI1.£”£L 

ABASE=AREC( I) 

iJ5a=ii 

IX*0 

fcLUIrl _ 

GO TO 312 

4 01 ABASE=AREC( KI X) 

I = K I X 

LF(.tlJ0E«.eClx2LG0 TO 403 _ 

GO TO 313 

_ 

NOEX= INDEX 

QlQ. .XQ_.( 3_09 j .313i). ^.A S.H__ .„ 

■J(_.?L_X_X_X_X_„X JOINING OF TRAC E AND NO TRACE F. C UJ 1 N.ES. 

313 IX=IX+1 __ 

1 F < NO ATE ( 1 , 4 J .EQ. 24) NS NOW-O 

312 — LfLLL»_£i3 W _L ..GO ... 1.0 311 ..... 

1=1+1 

GO TO 307 _ 


XX X X X TRA CE I N ROUTINE 

.35.0 IF { A R, E C ( I ) ..GJ .ABASE ) G 0_ TO 351 

403 IF( I STORE . EQ. 1) GO TO 352 

LF.L4IM1 n.,..Nfb. §_*0 L. G.a_JQ„251_ 

360 IST0RE=1 

' ITMO=NDATE( I, 1) 

I T DA=NDATE ( 1,2) 

I TYR = iNDATE ( 1,3) 

I THR=NDAT£ { 1,4) 

... ITWN=NDATE( 1 , 5 ) _ 

355' ITIC=1 

I F ( NS N OW • E Q «JL ) GO TO 3 1 3_ _ 

MASH=2 
G0_T_0 316 
354 I T 1 C= 0 

IF ( NEED. EQ. 1) NIiC=NTIC+l 

IFINTIC.LT. 12 ) GO TO 313 

NEED=0 

NTI 0=0 

GO TO 313 __ 

364 KSEQ=KSEQ+1 

400 1 ISTQRE=0 

I T I C=0 
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NT I C— 0 — — 

IX=0 

NUT= 1 

IF(NGO.EQ.l) GO TO 310 

G O TO 313 - 

352 IF (NEED.EQ. 1) GO TO 365 

I F ( ITIC.EQ. 12) GO TO 366 

ITIC-ITIC+1 

GO TO 3 13 

365 IFINTIC.GE.12) GO TO 390 

NTJONTIC + 1 

GO TO 313 

3 90 NEED=0 . 

I STOR E = 0 

NT ? C =0 

ITIOO 

__ _ G O TO 3 13 _ __ 

366 IF(NSNOW.NE.O) GO TO 367 

IF(AT RA(I ) .EQ.8. ) GO TO 360 __ _ _ _ 

I STQRE=0 

I TI C=0 _ 

GO TO 313 

367 IFINDA T EJ_I , 4 ) «_NE . 2±) _G0 JLQl 3 5_5_ 

ACC=ACC +ATR EC 

I F ( NSKI P. EQ . 1 ) GO TO 4001 

WRITE! 6,329) 

_WR I TEi 6 1_27 ) _GAGE ,_I TMO ,J TD A_, NY U , I TY R , I THR , I TMN , TR ( 2 ) , A 
1 f R EC , S f YP E ( NO EX j , ACC , NCOO 

_ _ WR 1 TE_( KTL J WI OjjGAGEj l TNO , IJDA , NY1 1 ,J TYR , I THR , I TMN , TR ( 2 
i> ,BtREC,STY"PE(NDEXj,NCb6 
NSN QW- 0 

GO TO 364 ' " ' 

351 K£X= I + l_ 

N J0E=2 

I_F!_KIX.EQ.J ) GO TO 402 

I F ( AREC ( K IX ) . EQ. ABASE )' GO TO ' 401" 

40J 2_ A OIFF= AR EC( U -ABASE 

IF! ADI F F 7 GT . G RE F ) ” GO* TO" 3 6 8 ~ ' 

__TRACE=IP12) 

TYPE = T R < 1 ) "* 

IF(NS_NOW.EQ.l) TYPE = STYPE(NDEX)_ 

IF (NEED.EQ. 1) "G 0 TO ' 391 * 

IF! I STORE. E Q . 1 ) GO TO 370 

itic=o " w — 

GO TO J3l_0_ 

370 WRI TE! 6, 329 ) " 

ACC=ACC+ATREC 

I F ( N S k I P . E Q Vl ) GO TO " 371 

- H6.LLE L6i271.GA.GE , 1 TMQ , I TD A , N Y 1 1 , 1 T YR , I T HR , I T MN , TR AC E , A 

1TREC » TYPE , ACC, NCO'd” 


kiBXLL{AIi„_LSiLQi.^il£.i.iIMQx.lXQA.i.N-YXliiI.YRjiTlHR ! ,tI.TM,.IRA(l 

1E,BTREC,TYPE,NCQD 

__m M-G.0.= 1 

IF(NSKIP.EQ.l) GO TO 4001 

G O TO 36 4 

391 NGO= 1 

G O TO 40 01 

368 I F ( I STORE • E Q • 1 ) GO TO ' 352' 

_ GO !0_313 

311 ktm6=ndate< J, l) 

KTQA-NOAT£( J.2) „ 

k’ty=nyii 

KTYR =NDATE( J,3) 

KTHR=NDATE( J,4) 

KJMN=NDA_TE( JjJ5) __ _ __ 

RE TURN 

END _ 

SUBROUTINE RUNOFF 

LOG ICA L *1 OU T 2 (6 ACARO { 8 0_J 

COMMON OUT 2 * AC ARC 

COMMO N/BLK 1/STYPE(9 99) , Aft EC (2 57) «CREC (257 ) * AT PA ( 257) ,C 

1TRA (257) , GAGE (3 ) , GAG( 3 ) , NSDTE < 999,5] ,NDATE(257 ,5 ) 

C 0MM0N/ BLK2/JtI , L ,NS TQP , NCHECK , NSTORE , I STOP E , ICHECK , N I 

ICE, NWSH,KSEQ, NSEQ,NOTE iMIAC, NSKI P, NL I ST , NPFG , 

2N0PT , NCPT , NJP.T 1 NTYPEjNX J J<J.^I XtMAXNOj. LECF ,_NOECJF,NCOD,.IT 

3 ,KT ,NST ART , LDATA » ELEREF ,NSC ,Y ACC , ACC , NT RACE , ABASE , NS NO 

4W t I_NDEX, NGO, NEED, NUT, ATREC,8TREC, ITIC , NDST , 

5NTINT » LTIN T »NORM , LHEC » DREC , NT IC » ADI FF ,NF I RST , NREFE ,NP1 
_6L 

COMMON/ BLK3/NH1 , NY22 , NMIN , I YR ,MT 1 ,NM1 , NY2 ,MMCNTH , I HR , N 
10 J.jjAR.D IjlNH 2 tN PAY , IMP, IMN j NY1 1., MT2_iNM2 , N YE AR , I DA , NY 1, ND 
22 , ARD2 , NHOUR , NYE ,NYXXt I TMO , I TDA , I TYR , I THR , I TMN , GREF , 
3MAS H,N DEX,KTM0,KTDA,KTY,KTYR,KTHR, KTMN , NSTARE , I Y , ARE 
AD » MTINT, I WID 

COMMON/ BLK4/LLLI 12)/_BLK5/TR(2) 

' IFTnICE/EQ. 1) GO TO 22 9 

L T I NT - 1 _ __ 

WRITE (6,12) 

_ 12 FORMAT (26X, » GAGE ♦, 7X , ' MONTH DAY YEAR • , AX,. 

2 • T I ME TIME DISCHARGE DEPTH C0DE'/26X,' NO. ',2 

17X,XHR __ MIN_ _INTR TABLE_ NO. (f.TJ !/ ) 

CTx X X X X X X X WRITE BEGINNING DATE TIME GAGE HEIGHT IF 

C THE FIR ST 

"CXXXXXXXXX READING OF A PAPER TAPE 

WRITE (6 ,46) GAGE , MT1 ,ND1_» NYI 1 ,NY1_, NH1 , NM1 ,ARD1 , NCOD 
46 F0~RMATT2Xr» BEGIN OF TAPE LABEL® 3 AA , 3X , I 2 , AX, I 2 , AX , 

1212, 3X,I2»3X,I2»21X, F6. 2 , A XjJ A / ) _ 

C 'TESTING BEGINNING NUMBER' OF AREC(J'S) 

I F ( NSTART . EQ. 0) GO TO _230 

I F ( NDATE ( 1 , 1) .EQ.NDATE (257, 1 ) .AND. NDATE ( 1 , 2 ) . EQ . NDATE ( 




1257,2 ) .AND. ND A T E { 1,3) . E Q. NDATE ( 257,3) » AND* NO ATJ_(J t 4.)..E„, 

2Q. NDATE 1257,4) . AND. NDATE ( 1 »5).EQ.NDATE(257»5) ) GO TO 2 

GFT0 _ 229 

231 ARE C( U=AREC(256) _ 

DO 298 M»l,5 

298 NDATE(1,M )=NPATE(256,M) 

NSTART=0 

G0_T0_229 _ 

230 1=1 

Kf 2 _ __ _ 

NTINT=1 

GO TO 18 __ 

229 NTINT=NTINT+1 

IaJL , 

_ c XJ XJ XXX X_X ROUTINE TO_ED.IT OUT EXTRANEOUS READINGS, 

C WRITE ON MAG 

18_ _ JF(NSTART.EQ.l) GO TO 17 
f9 I F ( AR EC ( I) . Gf 7 g‘R E> 1 AREC{ I j=0.0 

. __ IF j AR ECHO . GT . GRJE F) ARE C (K ) = 0_. 0 

I F ( ( AR EC < I ) . EQ. AREC { K) ) .A ND *7 NDATE Tk , 4 ) .NE . 24)1 GO TO " 

12 5 _ 

IF(NSKIP.EQ.l) GO TO 4000 
24 IF±LTINT.EQ.1)_ GO TO 4003 

4005 ifinl isf. eq.o) go“toTo6'“ ‘ ~~ 

WRIJEJ.6 ,27 ) _ GAG E , ( NDATE ( I , M ) ,_M=1 ,_2 ) , NY1 1 , ( NDATE ( I , N ) , 

1N=3,5) ,NTI~NT,NDSt,ARECU ) ,NCOD 

.27. _ FORMA T( 23 X,_ 3A4 ,3Xj 1 2 , 4X , I 2 , 4X , 2 1 2 , 3 X , I 2 , 3X , I 2 » 4X , 1 3 , 7 

lX,Il,6X,F6.2,4X,i4) * 

J_°0_.WRI TEJ KJi _IWID t GA_GE , ( NDATE ( I , M ) j M = 1 , 2 ) ,NY1 1 , ( NDATE ( I ,N 

1),N=3,5),NTINT,NDST,AREC<I ) ,NCOO "" 

_ KSEQ=KSE0+1 

MTiNf = NTINT 

4000 L=I__ 

NUT=1 ~ 

45 1=K 

NT I NT =0 * " 

25 IF(K.EQ.J) GO TO 23 

NTI NT=NTI NT+i 

. _ K = K + 1 

GO "TO 1 9 ' 

4003_WRiT.£J kj l4QPj 4)_GA_GE ( NDATEJ I ± M)., M = 1 ,2 ) , NYil , ( NDAT E ( I , N ) , 

1N»3,5) ,NTINT,NDST,AREC(i )',NCOD " 

4004^ FORMAT! IX { * FIRST RECORD ON MAG.= ' , 3A4 » 3 X » I 2 »4X , 1 2 ,4X 

1 LTINT 0 3X » I2,3X,I2,4X, I3,7X, li,6X,F6.2,4X, 14/1 

GO TO 4005 ‘ : - ; • 

£.A..X_X_)LjL-jLX_A X ROUTINE USED AFTER FIRST TIME THRU (NSTA 

C RT=1) ~ 
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11 J£±M&lUjL&.*W&±ABJz£d±l:£*& ——■ 

IF (AREC(I). EQ.AREC1256) .AND. NDATE ( 1 f 4) .NE. 24) GO TO 70 

LFJlIlNJ^£fl-ll_.Gfl_JLO_AOQi! - 

4007 IF(NSKIP.EQ.l) GO TO 4001 

. LfJ NL _GQ.. JJ3-3.Q5. 

WRITE (6, 27) GAGE »( NDATE ( 256 »M) *M=1 » 2 ) t NYXX t ( NDATE ( 256 

1 » N ) ! te 3j SXjAR ^CJL216 1.1.N C 0_a 

305 WRITE(KT) I WI D , GAGE , ( NDATE < 2 56, M ) t M= 1 , 2 ) , NYXX , ( NDATE < 2 

.156.1 jNljLN*3i.„_5J.».NJJJiI.».JiO5ItAB.££125A)aaC.0a 

KSEQ=KSEQ+1 

MT I NTf.Nl .1 NT - - — 

4001 NT INT=1 

NUT=1 ~ 

_ G0_ TO _19 

4006 ’wR~ITE ( 6 , 4004) GAGE » ( NDATE ( 256 f M) f M=l,2) , NYXX , (NDATE (256 

1 » N ) t N = 3 * 5J , NTJ [NTj NOST. t,A_RECJ25A).i NCOO 1 

LT INT=0 

GO TO 4007 — 

70 ' AREC ( I ) =AREC( 256) 

00 75 M=l,5 — 

NDATE ( I ,M>»NDATE(256,M) 

7 5 _..£_ONT.I.NU.E. .... — 

NTINT=NTINT + 1 

GO TO 19 — - 

"23“ NST ART= 1 

1 F ( NCH ECK..E Q.0 ) ..GO TO 55 ■ - - 

I F ( NSTOP.EQ. l.QR.NWSH.EQ. 1 ) NSTART = 0 

IF.(.(NSTOP*EQ. 1)_.CIR,.( NWSH.EQ. l. U....GP_T.O_ .95. 

IF(ncqD»EQ* ioOO.AND.LDATA.EQ.O) GO TO 800 

J F„(..N_COD. .G.g.ju 00.1.0 ..AND. NC.0.D_.1I..„0 0.50.)... N.SJ.ARTf.0. 

If (ncod.gt. iooo.and.ncdd.lt . 1050 ) nstart=o 

I F J NCOD • GE . 0.1 00. AN D. NCOD . IE. 0 1.1.6 )...N ST ARTfQ 

•""" ip ( NCOD . G E .11 0 6 . A N D . NCOD . L E . 1 1 1 6 ) N S T A R T = 0 

I F ( NCOD .GE. 01.1.8. AND.*NC0D«LE. s .0i.32.L . NS TART = 0 

I H NCOOVgE. 1*118 .AND. NCOD. LE .1132) NSTART=0 

I F ( NCOD . G T . 0. 1 33. AND . .NCOD f .L£. P 199jL.NSIARTf.0_ 

TfI nCOID. GTV n33. AND. NCOD. LE . 1199) NSTART*0 

IF ( LDATA. NE . 0 ) _.NS TART f_Q .._ - - 

I F ( NSTART »E 0.0) GO TO 95 



GO TO 800 _ _ .. ... 

95 IF(NTINT.EQ.O) GO TO 21 

I F ( N S K IP. EQ .l) G O TO 4002 
I F ( LT I N T . E Q • 1 ) GO TO 4008 


4009 I F ( NL I ST. EQ .0 ) ... GO . JQ_ 42. .... _ , • n . T ; ; T - M \ ‘ 

WRITE ( 6 » 27 .) GAGE > ( NDAT E ( I » M,) » M = 1 » 2 ) » NY 11 » ( NDATE ( I » N ) i 



IN = 3 1 5 ) , NT I NT t. NDST , AREC ( !_)_» NCOD 

WRITE (KT) I WI Df GAGE » (NDATEt I »M) ( M-1 1 2) 
1 ) ,U = 3_. 5 ) ♦ NJINT . NDST t A R EC ( I ) ,f NCOD., 

"kTeq=kseq+i 


» N Y 1 1 » 


(NDATEt I ,N 



47 



MT IN T=NT I NT 

4002 L= I 

... MUI=.l __ 

GO TO 21 ' " 

ftOOfi._WBi.Ti (6 j 4Q0 4 )G A G E , ( NDATE ( Ij_MJ t Mf XjlZ ) , fjYJ lj ( NDAT E ( I j N ) ± 

1N = 3, 5) ,NTINT, NDST, AREC H) ,NCOD 

L X] N T - 0 

GO TO 4009 ' ”* ‘ 

800 D O 801 M = 1_,_5 _ 

801 NDATE < 2 57 , M 1 = NDATE ( J , M ~) ’ ~ " 

IF ( A REC (J_)_. GI jGR E F ) _ AR EC_( J)_= 0. 0 __ 

APEC< 257)=AREC( J) ' 

55_ DO 36 M = 1 , 5 ^ 

NDATE (2 56, M )=NDATE { I *,M) * 

16 CONTINUE 

NYXX=NY11 ' ' " " 

ARECj256|*AREC( I ) 

21 NICE = r * ’ 

RETURN 


, UB ROUJI.NE .. A QU F E R _ 

LOGl‘CAL*l 6 U 1 2 ( 6 ) , A CAR D ( 8 6 ) “ 

__^10Mfl0_N_ _0UT2 ,ACARD_ 

1 TR4 ? U 1 'r It P V, fVl * f 1 rTc "< MT> ,CREC<mY|7*TR*CBT» . C 

- ...iX5Ai? 5 JJj IAGe 13), GAG { 3 ) ♦ NS DTE { 999 , 3 ) ,NDATE(257*5) 

COMMON/ BLK2 / J » I ♦ L , N S TO P , NCH E C K ,N S TOR E ,1 S TO R ETiC HE Ck7nT 

- NWAHjJiSE Q..t NSE Q »NOTE,MIAC,NSKIP,NLISTtNPFG« 

f T'Z "iNTPT.n: rVP|.MX.I KSTf^iUNuTT 

» ABASE , NSNO 

Xl IjjJjE C ji DR E C , NT I C , ADIFF ,N F IRST «N REF EjNP 1 

- _ C _0 M MON / B LK3/ NH1 , NY2 2 ,N M_IN,IYR,MTl,NMl«NY2.NMnNTH i ho m 

1D1 , ARU 1 , NH2 , NDAY , IMO , IMN , N Y1 1, MT2 , NM17N YE AR , 1 0A - NY1 " "nd" 
-22» ARD_2 , NHOURjlNY E , NYX X , ITMO, TDA ITYR.ITHR fTMN » 

C OMMON/BL K4 /lALTi 2T7bTk57T(T(T) - 

_LLPAS=0 

NREFE=0~ i 

DO 21 1 = 1, J 


re! * * *^ T * 6R BF) AREC(T)=b.'0 

LFiJ.L§.R_F F.«j Q . O^Oj GO TO 21 

AREC{I)=ELEREF-AREC(T) 

_21 CONTI NUE__ 

ARD3=ARD1 ~ ■ 

If 1 ARDl.GT.GRj F ) A R D 1 = 0 . 0 

IF(ARD2.GT.GREF >~ ARD 2=0 76 ' 

iF(.ELE_REF^E_Q_.0.0) GO TO 2 0 


AR D 1= El ER E F-ARDl’ 



CM; m <r\ 


RBEPJE*! 

20 IF(NFIRST.EQ.O) Go" TO 2 

JftLE J. T SLL& ill. I_._E.LE R-£F_i A&D.3. 

17 F0RMAT(9X, ' ELEVATION REFERENCE^ ' , F8. 2 , ' BEGIN GAGE HE 

116bl*!_i.£6 m.2A 

WRITE (6, 1) GAGEtHTlfNDltNYlltNYltNHliNMlf NREFE, ARD1»NC 
XQ.D 

I FORMAT! 34X, 'GAGE MG DAY YEAR TIME NREFE GAGE D 

1EPH. CODE '//9X_» 'BEGIN OF TAPE J.A.BEL5. • , ...3A4 ,.2XjI 2,.l X, 

2 1 2 » 2X , 2 I 2 , 2X, 2 1 2 , 3X , 1 1 , 6X , F8 . 2 , 3X , 14// ) 

JL=0__ _ . 

1 = 1 + 1 

LMOfNOAJJ (J t.l ) 

lmd=ndate< i ,2) 

LYJL-NDATE < I ,31 

LHR=NDATE (1,4) 

LMN=NDATE (.1 ,5J 

AAREC=AREC ( I ) 

_IJF ( LMN.JQ .30 . OR . L MN.EQ.OO) GO TO 6 

IF! I • E Q • 3 ) GO TO 15 

GO _T0. 3 

6 IF(I.EQ.J) GO TO 8 

SL _LEiNFJ.B_S.TjtE. SU QJ .G.Q._IQ_9 

WRITE <6, 7) GAGE, LM0,LMD,NY11 ,LYR, LHR,LMN» NREFE, AAREC,N 

7 'l^'rofT8X%^lTsf‘liiC0RD ON” MAG. * ~ 'T~3 A4~, 2 xTf 57 IX, 12, 2X 

_ U2 1 2 t2X , 2J 2,3 X , 1 1 j.6X t±&*Zs3At._lAU. i - 

9 IF(NLIST.EQ.O) GO TO 11 

WR I IE ( 6 , 10) GAGE , LMQ# LMO, NY 1 )., LYR_tkH8_i.U^N.,.NRE.FE , AAR EC , 

IN CO D 

_10 FQRMAT ( 30X, ZAftxZ X_UZ±X)L»X2ji.2X JL .2.llx2.X..t2JL2. ,3_X.,Ilt6X_j> F 8. 

12, 3X, 14) 

II lF(NSKlP.EQ.l) GO TO 13 _ _____ — 

12 WRITE (KT) IWID, GAGE, LMO.LMO, NYU, IYR , LHR »LMN, NREFE, AA 

1REC,NC00,TR(1) - 

NUT = 1 

KS EQ=KS E Q+1 

13 NFIRST=0 

ND AT E ( 2 57 j 1 )_=.LMO — - 

NDATE ( 2 57 ,2 ) =LMD 

NDATE(257,3)=LYR 

NDATE (257 ,4 ) = LHR 

NDATE ( 2 57 _, 51= L MN 

AREC(257)=AAREC 

IFg LPAS.EQ.l_) GO JO ...15 

~ 'GO TO 3 

8 I F ( NCHECK .EQ .O) GO TO 18 

“TF(NC00.EQ. 1000. AND. LDATA.EQ.O) GO TO 15 

NERRO R = 0_ ~ 

IFtNCOD.GE. 0010. AND. NCOD.LT .0050) NERR0R=1 



RQR= J 

— mMuM:5£Sgi!:?I} 4 4 j S ~ 

— 



IJFj N ERROR. E 0.0 J GO TO 15 

18 LLPAS=1 

GO _T0 5 

15 NFIRST=0 

REJURN 

END ‘ 

subro utine output 

:J1 A 2 «0UT-TH6- 

COMMON 0UT2 # ACAR0~ : 

Y * " -- - TR A (25 ~ 7J >c 

3.W7NST4 ( <friMf“llf^^^^IMtiNOEOF A NCOO J IT 

iilliNOEX, NGO, NEED. NUT, ATR EC^?RPr: tT^ NTMCC,ABaSE ’ NSN0 

^'I^^^i^EIRSTVnRE^FE^NPI 

22 , ARD2, NHOUR , NYE7NYXX7‘ ^~ITMO”l Tnf^rrvo- 5 Mi » NO 
IMASHjNDEX.KTMOfKTDA.KTY K tvb ’JJPf ' 1 TYR * 1 THR 1 1 ™ N » GREF » 

t&^0N/BLK4 /L L L ( 12I/BLK5/TP (2 ) 

NStQ=NS£Q+KSEQ 

Lf.LNT.YPE ._EQ. 1)_ G 0 TO 400 

I F ( N T Y P E . E Q . 2 ) GOT 0™4 01 - - 


Lf.LNTYPE.EQ.lJ 

IF<NTYP£.EQ~.Y) 

GO TQ_4f)2 

400 BREC= AREC ( J ) 

__BRD.2f AR D2* 1 0. 0 

WRITE (6 f48) NOP 


LATE L« J I H ! ? Si 1 ?2 ) N Y22 ^NDA TE f J N jj i BR 02 , ( I 

2,NPIL -?J3 1 J^iJ.NDATEi J Ji=B , 5 ) , B R EC, KS EQ , Ml, 


— - -4THE_.no, OF. RECORDS WRITTEN=J I 

5PUNCHES FOR "PAPER "TAP? u?T“rnuo^llt -^--IQ-TAL NO. OF 
_6H. INTERVAL.-, I2/P COMPUTEO TO BE-Ms',. PUNC 

YACC=YACC+ACC . 
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IF.iNh .StUiLfljuQJ G 0... T.GLA5.3.. _ 

WRITE(6,452) YACC 

.4.5.2 F.D.RMAK ZMsA TOTAL RR.E.CJ P..1 TAT I QN.Jr.QRL AG.E « • ..F 5,1 / ). - 

453 I F ( NUT » EQ « 0 ) GO TO 449 

GP...I0..4.5.Q 

401 I F ( NUT. EQ .0 ) GO TO 449 

_ 

1M=3 » 5 ) , MT INT »NDST*AREC ( L ) ,NCOD 

54 _ FORMAT< 'O' t 2X, 'LA$T RECORD ON MAG* *, 3 A4 , 3X , I 2 * 4 X ,.I Z.t ... 

14X » 2 1 2 » 3 X 1 1 2 » 3X» 12 »4X, I 3 , 7X, II, 6X , F6. 2 ,4X , 1 4// ) 

NUI=0 

550 WRI TE ( 6 f 50 J NOPT , GAGE , MT2 , ND2 , NY22 , NY2 , NH2 , NM2 , A RD2 » ( ND 

1ATE(J,M),M=1,2) ,NY22, ( NDATE ( J , N UN=3, 5 ) t AREC(J) * K S E Q., N 

2 S E Q » M I AC » N P I L 

50 FORMAT ( 3X, * END OF TAPE NO. • , 1 2 , * , FOR GAGE-**. 3A4,' EM ... 

ID OF TAPE ON LABEL* * , 1 2 , » / • » 1 2 , * / • ,21 2 , • TIME*' , 12, I 2 r 

2' READING*' ,F6.2/44X, 'END OF TAPE COMPUTED* ' , 1 2 , ' / ' ,12 

3,'/', 212,' TIME*', 12, 12,' READING*' ,F6. 2/44 X, 'THE NO. 

_40F RECORDS WRITTEN^ I5//12X, 'TOTAL. RECOR_DS WR I T TEN.. .ON 

5 MAG. TAPE SINCE BEG INN I NG = ' , 1 6//28X, • THE TOTAL NO. OF 

6 PUNCHES FOR PAPER TAPE WAS COMPUTED.. TO. B E=.' .* .1.5 , _ PUNC 

7H INTERVAL*' ,12/) 

GO JO 450 _ _ 

449 WRITE (6,555 ) 

__ 555 FORMAT ( 12X.,JN0 RECORDS WRITTEN ON TAP E FCR THIS PAPER 

IT APE ' 7 J 

IF(_NTY_PE.EQ.2) GO TO 550 

450 WRITE (6, 49) 0UT2,NCQD 

49 _FORMAT< 12X, ' DATA FOR PAPER TAPE. WRITTEN ON. TAPE NO, .* *6 

IaT, ' , FOR STORAGE— THE ERROR CODE FOR TAPE* ' ,14///) 

_ I F (. NT_Y P E . E.Q , 2J _ GO.. T O 30 0 4 

WRITE (6,3003) NSEQ 

3003 FORMAT ( 12X, ' ( 1 , 16, 'J.=TOTA_L NO. OF _RECORDS WERE WRITTEN 

----- "MAGNET." 'TAP E THROUGH THIS POINT DURING FIRST EDIT' 

2// ) _ _ 

3004 CALL ERMESG(NCOD) 

GO TO 30 05 _ 

“ 402 IF ( NUT.EQ.O) GO TO 815 

MON=NDATE (257,1) _ . 

NDAE=NDATE( 257,2) 

_ NYER=NDATE( 257,3L _ 

N HU R=N DATE ( 25 7,4) 

_NIM^NDATE(257,5 )_ 

CTREC=AREC( 257) 

WRI TE ( 6,8.14 ) GAGE , MON, NDAE , NY22 , NYER, NHU R , N I M , NR EJFE» C_T 

.. irecTncod 

814 _ FORMAT < • 0 8X , ' LAST REjCQRD ON MAG-* » , 3A4 »2_X , 1.2 j_1X ., .1 .2 

^ gx f 2 1 2 ,2X72127 3X ,177 6 X , F ¥72 , 3X ,14/) 

815 MO*NDATE < J, 1) __ 

NDA=NDA TE( J , 2 ) 
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O o ojo o:r> oto olrv oj, 


JJYRzNQAJE £ J , 3! 
NHR=NDATE("j ,4 ) 
NM N=NDA TE (J ti! 
TTREC=AREC( J) 
_AJ< D_3_= A R 0 2 


IF(ELEREF.EQ.O.O) GO TO 617 

ARD 3=ELEREF-ARn? 

817 WRIT£ _ {6,8i6)‘ ARD2 

M 6 — LQRMAT(37 X, » ENDING GAGE HEIGHT LA B EL = ♦ , F8 .2 , 

813 WR I Tfc ( 6 » 600 } MT 2 , ND2 , NY22 , NY2 t NH2»NM 2 , A fi D 3 , MO. NDA7nY2 
X2_> NY,Bj_NHR , NMN t TTR EC_, NCO D_, K_S EQ f CUT2 , NS EQ 


) 


600 FORMAT ( 1H , 36X, « ENDING ON TAPE LABEL= M 2 , • - • , 1 2 , , 2 
ILij AXj_2X2.i_4X, F8.2 / 37X , 1 END OF T A PE COMPU T F D = ' , 12 * - ' I 

ll ’ : " : / 2 ,ll ,4X ’ 2 12 ’ F8.2/37X , • ERROR CODE" FOR PA PE R T A P* 

^F.r__fJ_W37X»J_5i_^REC0RpS WRITTEN FOR PAPER TAPE‘/37X.'R 

4ECQRDS WERE WRITTEN ON MAg7 TAF^TTa 1 / 3 7 X , * A TOTAL OF 

^u'fio'^ T|HIS J?P I NT « ) 

GO TO 30 04 

3005 


3001 

T6'02 


KSE0=0 

— 1 F_{_L DAT A . EO .0 )__G0 TO 30 
DO 5000 NNN = 1 , LDATA 
- F E AD (5,30,01 ) A C A R D 
FORMAT ( 80A1 ) 

-WMIii 6_, 3 00 2 LA c A R D 
FORMAT ( 28 X , 80 A 1 ) 

- 5 Q 00 .CONTINUE 
30 RETURN 

- END 

r SUBROUTINE ERMESGllj 

c subrout i"ne Frmesg ("reTiIFd' 

C ~' M "■ f ■ FdIFthE ' ~ l ^DJSCMBilG.lHE_ TjrPE_ERRQ JL THAT IS PRESEN 
—DAJA STORED 


BY JAN C CARR 10/71 I 
PPPE (NC pp) FOLLOW I NG T 


«pd > ' ' 

A VAR1ABL6 °« CONSTANT VALUE CF ERROR CODE 
(1000 OR 2000) “ 


IJ=I_ 

i F ( I . EQ. 1000 





aifl-Efi .I-NT. 820.1 

820 FORMAT! 20X, 'ERROR CODE ( ' » 14 » ' ) LAST VALUE PUNCHED ON TA 

IPJl^m£a,.mT__J^R£E..WJ..IH.JAUE_.G_ALKLe_MLlLE 5JL 

GO TO 811 

ja.ia_ERiNI_JL21.tI 

821 FORMAT! 20X, 'ERROR CODE ! ' i 14 LAST VALUE PUNCHED ON TA 
1 PE 1 S TR U E G A G E VALUE') 

ail IF( (I .GE. lO.AN D .i .LE.29) .0 R < I .gT. 10 10 . AND. I.LE. 1029 ) f 

1 G O TO 401 _ 

I F C < I . GE. 30 .AND. I .L E .49 ) .~GR • < I .GE . i030. AND. I . LE.1049) j 

1 GO TO 501 

I F ( { I .GE. 50. AND. I .LE.79) .OR. ( I .GE . 1050 . AND. I . LE . 1079 ) ) 

1 GO TO 601 

I F ! ( I . G E . 80 . AND . I . L E • 8 9 I .OR . f I . GE • 1 08 6 . A N D . I ^ LE .108 9 ) ) 

1 GO TO 7Q 1 ... 

IF c < I .GE.90.AND.1 .LE.99j.0R. ( I .GE. 1090. AN C. I.LE.i099> ) 

1 G O T O 801 __ 

IF( ( I .GE. 10 0. AND. I.LE. 199) .CR.( I . GE . 1 100 . AND. I . LE . 1 1 99 

1) ) G O TO 901 „ _ 

817 I F ( I.EQ.1000) GO TO* 202 

__I F (_1 • EQ • 200_0j_ GO_TO 201__ _ 

GO TO 301 
2 02 P RIN T 100 0. I 

iooo F0RMAf{20X, 'ERROR CGDE= ! • 1 1 4 , ' ) GOOD DATA TAPE-NO APPA 
1 RE NT ER RQRS *_}_ 

201 PRINT. 2000 t l 

2000 FORMAT (20X» 'ERROR CODE = ( » , 14 , ■ ) ESTIMATED DATA AT SOME 
1 PO_I NT') 

RETURN 

301 PRINT 9000. I 

9000 FORMAT ( 2 OX * ' ERROR CODE IS NOT VALID— CODE = » f 14) 

RETURN 

401 PRINT 7000 
7000 FORMAT! 20X, 'TIME LOSS') 

I F { I. Lf .30) 11 = 1+1000 
ID=I 1-1009 ■ 

G O’ f 0 ( 1 O’ , 1 1 , 1 2 1 i 3 , 8 , 8 , 8' » 8 t 8 1 8 , 2 6 , 2 1 , 2 2 , 2 3 , 2 4 , '2 5 , 2 6 , 8 , 

1 8 , 8 ) t I D _ 

10 PRINT 1010 
__ GO TO 812 

11 PRINT 1011 

__G0 T0.8J2 _ _ _ _ 

12 PRINT 1012 

GO TO. 812 

13 PRINT 1013 

GO TO 812 

20 PRINT 1 020 

_G0 TO 8 12 ___ __ _ 

21 PRINT' 1021 
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GO TO 

812 

22 


PRINT 

1022 



...GO TO 

812 

23 


PRINT 

1023 



GO TO 

812 

24 


PRINT 

1024 



GO TO 

812 

25 


PRINT 

1025 



GO TO 

812 

26 


PR I NT 

102 6 



_G0 TO 

812 

Toi 

0 

FORMAT 

( 20X, 

..101 

1 

.FORMAT 

(20X, 


i 

L* untTl 

BA TT 

101 

2 

FORMAT 

(20X, 

101 

3 

FORMAT 

( 20X , 


... JP.ER_TAPE « ) 

1020 FORMAT (’20X t 'NO APPAR ENT" REASON'*") * 

1.9. n.JTQ !pAIjj.P. X_» . ?_M j_S T A K e IN ERROR C ODE -HAS NOT BEEN ASSIGNS 

- - -iO 2 2 FORM AT ( 20 X , 'LEAF S NIT C H FAILURE') 

1023 FORMAT ( 20X, * BATTERY FAILURE »T 

iPJ 4 _FQRmA T(2 OXjJ I MP R 0 PE R TAPE ..INDEXING* ) 

102 5 FORMAT (20X, 'PUNCH MOTOR OPERATES INTfrmTtTANtI v~*T 

i026„F^RMAT.(.20X t 'PUNCH_M0T0R FAILURE'! 

501 PRINT 6000 ’ 

.60.0 0_F0RMA_T j_20 X t ' T I M E GA_I N 1 ) 

IF( I. IT. 5*0) 11 = 1 + 1000 " " — — 

- Ji>f.n-.lp29 

1^ * ^ ' 1 2 * 11 ’ 2 °’ 22 1 ® ® 1 8 » 8 » 8 , 8 t 8 , 8 , 8 ,8 » 8 , 8,8) 

30 PR INfT030 

^4^3P_F0(<HAT(20Xi/TJMER _FA_I_lijre.2^1/2 MINUTE. PUNC H INTERVAL | 
GO. TO 812 _ 

601 PRINT ”5000’ — * — 

5P 0_0 F A H 2 0 X » _' I N CO RREC T RECORDS CODE') 

IFU.LT.80J II=l + i 000 - ... 

1 0= I.I.-1 049 

~ A fl: If ® ® ' 0 ' « • a ' 

GO T O 81 2 

52 PRINT 1052 

G0_T0^812^ * ” 

53 PRINT To 53 — 

- G0_ T0812 

54 PR INf 105V 

GO TO 812 

55 PRINT' 1055 
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G.Q...TD 8.1.2 _ 

56 PRINT 1056 

JGSLJQ. 3.1Z. . 

57 PRINT 1057 

QQ. ID— 81.2 

58 PRINT 1058 

_G.CL.XQ- J3JL2 _ 

59 PRINT 1059 

DO. XQ... 8.1 2 . 

60 PRINT 1060 

_ . GO... TO 812. . . ..... __ 

67 PRINT 1067 

jGO_TO 812 __ 

68 PRINT 1068 ~ 

GO TO 812 

70 PRINT 107 0 7'“ * 

GO TO 812 

71 PRINT 1071 

GO TO. 8 12 

72 PRINT 1072 

G 0._T 0 812_ 

73 PRINT 1073 

GO TO 812 

78 PRINT 1078 

_G0 TO 812 

79 PRINT 1079 ” 

__ _ . GO _T 0 812 

1051 FORMAT (20X, 'GAUGE 1NSENSI TAT I VE AT SOME PCI NT CN RECOR 

ID'. I 

1052 FORMAT (20X, ' SNOW WI TH FUNNEL IN PLACE') 

— 10.5 3 ... F.Q.RM A.J.1.2 Q.X JLNJAK6.. §Xk.I . PROBLEM ! ) 

1054 F0RMAT(20X, ' INTAKE PIPE STOPPED UP') 

-_l.055_.FORMAX.(20X_, 'DRIFTING SNOW') 

1056 FORMAT (20X, 'FOREIGN MATTER "iN COLLECTOR’ ') 

..L0S.7_.F0RM AT <_20X t • C ABL F. BREAKAGE') 

1058 FORMAT <20X t 'GAUGE TAMPERED WITH') 

-1059 FORMAT (20 Xj « FUN N EL F A LLE N_ XN JO COL L EC TO RJ ) 

1060 F0RMAT(20X, 'PRECIPITATION LOSS NO REASON ' j ' “ 

.. 1067. .FORM AT ( 20 X , • P AP.ER ..TAPE SU P P L Y_ R A N OUT') 

1068 F ORMAT ( 20X« 'TIMER TURNED TO TEST POSITION ' ) 

. ..IQ 7_0_ F ORM AT_(2 OX , 'N OT C H OF WEIR PROBLEM ( ICE )» ) 

1071 FORMAT ( 20 X, 'LOG JAMS OR. DEBRE I N NOTCH ' j 

__l.PX2_F0RJiALt20.X K 'VAUJE .GREATER THAN_RANGE OF INSTRUMENT AT ... 
1S0ME POINT*) 

_J 07 3...F ORMAT. (20 X , 'FLOAT TAPF DISENGAGED FROM_REO ORDER ' ) 

1078 FORMAT C20X» » ICE JAMM I NG< C AUSE HIGH G.H.)' ) 

,._1079 F0RMAT(20X, 'HEAVY ICED CREEK') 

701 PRINT 4000 • ' ' — * 

4000 FORMA T ( 20X. ' TRACE MALFUNCTION CODE') 

I Ft I. IT *90*) 11*1 + 1000 “ " 
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10- I I-I079 

GO TO (80, 81, 82, 8, 8, 8, 8,8,8 ,8) » ID 

80 PR INT 1080 

GO TO 812 

81 P RINT 1081 

GO TO" 812 

82 PRIN T 1 082 

GO TO 812 

1.080 F0RMA T(20X» 'T RAC E WITH OUT PR SC I P ITAT ION » 1 .. 

lOBl” F0RMAT(20X, 'PRECIPITATION WITHOUT TRACE PUNCHES') 

108 2 FORMA T( 2QX, ± TRAC E J.NC ON S ISTENT') 

801 PRINT 3000 

3000 F0RMAT(20 X, 'TRANSLA TOR ERRORS') 

I F ( I.LT.ioO) “n = i + iooo 

10=11-1089 _ _ 

GO TO" (90, 91, 8, 8, 6, 8, 8, 8, 8,8), ID 

10 PRINJ„1_09 0 

GO TO 812 

91 P RINT 1091 

GO TO '812 ~ 

1090_ FORMAT ( 20X, ' RJ3AD HE_AD MALFUNCTION AT SOME POINT ON REC 

1 ORD 1 ) 

10 91 F OR M AT ( 20X, 'MANNUALLY INSERTED READING ON DOUBLE PUNCH 

1 WRONG') 

9 01 PRINT 1 0000 _ 

10000 FORMAT! 2dx, 'COMPLEX ERROR CODES**! 

IF ( I.LT .1200) 1.1 = 1 + 1000 __ 

I F ( 1 1 . G E . 11 35 . AND. 1 1 . LE.Tl99) GO TO 8 “ 

10=11- 109 9 _ 

G 0 TO (100,100,102, 1*0 3 , 103 , 1 05, 106 ,1 1 3," 108 ,1 08, 1 1 0 , 1 11 

lj.l 11,113 ,_11 jjU. 5 il_l 5 ,11 7 ,11 8,119,120, 121 ,122,123,124,1 

225,126,127, 128, 129, 130, 1 31 , 13 1 , 1 33 , 1 34 )' , ID 
— 10 0 PR INT 1024 

200 PRINT 1 026 ~ ' 

GO TO 81 2 

102 PRINT 1080 

GO T O 20 0 

103 PRINT 1020 ' ~ 

500 PRLNI 108 2_ 

GO TO 812" " " ; — 

105 P RINT 102 4^ 

600 PRINT 1 023 “ 

GO TO 812 

106 PRINT 1024 

Gp_Tp__600 

108 PRINT 1020 - 

700 PRINT 1080 

GO TO 812 

11 0 PR I N T 102 3 

GO TO" 200 " ~ " ' 
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_B.RlNI_Ju.02.4. 

800 

PRINT 

1081 



.912 

1 13 

PRINT 

1024 


....Gil .TO.. 

-5.Q.0 

115 

PRINT 

1012 

_.J.9.iL. 

.imLiMi 


GO TO 

812 

117. 

PRINT 

1.070... 


PRINT 

1054 


QO TO 

812 

110 

PR I NT 

1060 

806 

PRINT 

i.Q24_. 


GO TO 

812 

. 11.9.. 

PRINT 

..1Q13... 

803 

PRINT 

1052 


PRINT 

.1.0.55... 


GO TO 

812 

,JL20.„ 

PRINT 

1023 


GO TO 

803 

121 

PRINT 

1024 

804 

PR I NT 

1052 


GO TO 

812 

122 

PRINT 

1024 


GO TO 

804 

123 

PRINT 

1024 

„ ...805,. 

PRINT 

1057 


GO TO 

812 

.124 

PRINT 

1024 


GO TO 

805 

125... 

PRINT 

IP. 5 5 . 


GO TO 

804 

126. 

PRINT 

1052 


GO TO 

200 

127 

PRINT 

1013 


GO TO 

700 

128 

PRINT 

1023 


GO TO 

700 

129. 

PRINT 

1030 


GO TO 

200 

130 

PRINT 

1081 


GO TO 

806 

131 

PRINT 

102 4 

807 

PRINT 

1091 


GO TO 

812 

133 

PRINT 

1072 


PRINT 

1073 


GO TO 

812 

134 

PRINT 

1020 


"GO "TO" 

Too'" 



8 PRINT 80001 

80001 FORMAT! 20X, ’ERROR CODE HAS NOT BEEN ASSIGNED') 

812 RETURN __ _ 

END 

BLOCK D ATA 

COMMON /BLK4/LLL ( 1 2 ) / BLK5/TR ( 2 1. 

DATA LLL/31 ,28,31>30 .31 130.31 »3 Lf 30 j 3_1 j30 j31/»TR/1H_ ,1 

1HT/ 

END 
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